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Abstract 


A Method of Moments (MoM) model for the analysis of the Linearly Tapered Slot 
Antenna (LTSA) is developed and implemented. The model employs an unequal size 
rectangular sectioning for conducting parts of the antenna. Piecewise sinusoidal basis 
functions are used for the expansion of conductor current. The effect of the dielectric 
is incorporated in the model by using equivalent volume polarization current density 
and solving the equivalent problem in free-space. The feed section of the antenna 
including the microstripline is handled rigorously in the MoM model by including 
slotline short-circuit and microstripline currents among the unknowns. Comparison 
with measurements is made to demonstrate the validity of the model for both the air 
case and the dielectric case. Validity of the model is also verified by extending the 
model to handle the analysis of the skew-plate antenna, and comparing the results to 
those of a skew-segmentation modeling results of the same structure and to available 
data in the literature. Variation of the radiation pattern for the air LTSA with length, 
height and taper angle is investigated and the results are tabulated. Numerical results 
for the effect of the dielectric thickness and permittivity are presented. 
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CHAPTER 1 


INTRODUCTION 

1.1 Problem Statement and Objectives 

The main objective of this work is to develop a Moment Method Model for the 
radiation pattern characterization of single Linearly Tapered Slot Antennas (LTSA) 
in air or on a dielectric substrate. The geometry of the LTSA is shown in Figure 1.1. 
This characterization consists of: 

• Finding the radiated far-fields of the antenna, 

• Determining the E-Plane and E-Plane beamwidths and sidelobe levels, 

• Determining the D-Plane bcamwidth and cross polarization levels, 

as antenna parameters length (L), height (H), taper angle (o), substrate thickness 
(d) and the relative substrate permittivity (c,) vary. The ranges of these parameters 
are: 

0.25A o <L< 5A„ 

0.25A o < H < 3A 0 
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2.5 deg < a < 9 deg 
O.OlAo < d < O.lAo 
1 < e, < 10.5 

where Ao is the free- space wavelength at the operating frequency. 

The reason for these choices of parameter ranges will be explained in later sections. 



Figure 1.1: LTSA Geometry 


The LTSA geometry which is shown in Figure 1.1, does not lend itself to analytical 
solution with the given parameter ranges. Therefore, a computer modeling scheme 
and a code are necessary to analyze the problem. This necessity imposes some further 
objectives or requirements on the solution method (modeling) and tool (computer 
code). These may be listed as follows: 
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• A good approximation to the real antenna geometry. 

• Feasible computer storage and time requirements. 

According to these requirements, the work is concentrated on the development 
of efficient modeling schemes for these type of problems and on reducing the central 
processing unit (CPU) time required for the computer code. A Method of Moments 
(MoM) code is developed for the analysis of LTSA’s within the parameter ranges 
given. 


1.2 Significance 

An antenna is one of the most important components in all communication systems. 
With the development of radar during the 1940’s, many new antennas have been in- 
troduced. The introduction of MoM to electromagnetics made the numerical analysis 
of many antennas possible. During the 1970’s the developments in microstrip de- 
vices and circuits vastly increased the possibility of new antenna structures. Planar 
antennas enjoy the possibility of integration with the other parts of the system. In 
recent years, the new developments in the millimeter wave frequencies has increased 
the importance of planar antennas suitable for this frequency range. The tapered slot 
antenna is one likely candidate for both microwave and millimeter wave systems. It 
can be easily integrated to microstrip circuits with a microstrip-to-slotline transition. 
Its radiation characteristics are also promising. Initial studies on LTSA’s were mostly 
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experimental. In recent years, some approximate analytical and numerical solutions 
for LTSA’s have been developed, however the validity of the results are restricted by 
the choices of the antenna parameters or by the approximation of the real antenna 
geometry. Therefore, there is a need for better modeling and characterization of these 

antennas. 

This work concentrates on rigorous computer modeling of single LTSA’s with the 
use of MoM. The real antenna geometry is modeled closely for the first time, both the 
conducting parts of the antenna and the finite size dielectric region. Earlier modelings 
lacked accuracy in either modeling the conductor parts (by assuming a different shape 
of the conductors to ease the analysis), or in modeling the dielectric (by assuming 
the dielectric support infinite or assuming that it is very thin). The characterization 
of the LTSA will provide the researchers and designers in the field with better design 
guidelines in the range of the parameters given before. Also, the solution method is 
not unique to the problem, the analysis of similar structures may be carried out with 
a modification of the computer code for the particular problem. 


1.3 Background 

The Tapered Slot Antenna was introduced by Gibson [1]. He called it the Vivaldi 
Antenna. Since its introduction, its properties have been studied by many researchers 
in the field [2]-[12]. The first studies were mostly experimental [2, 3], dealing mostly 
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with the characterization of the antenna and derivation of some empirical design 
formulas. The usage of the antenna at millimeter wave frequencies as a feed array 
element [8], and the integration with the other elements of the system have also been 
studied [11, 12]. 

The first theoretical formulation for the radiation pattern of the antenna has 
been provided by R. Janaswamy [4, 6, 7]. In his work, the height of the LTSA (H 
in Figure 1.1) was assumed infinite. Assuming also infinitely long antennas, (I > 
3A 0 ), enabled him to approximate the fields by those of two infinite cones which can 
be analyzed analytically [13]. However, assuming infinite conducting parts for the 
antenna leads to incorrect predicted fields if one uses the free-space Green’s function in 
the application of the Schelkunoff’s equivalence principle [14]. Due to this reason, he 
approximated the effect of the finite length of the antenna by assuming a conducting 
half-space at the end of the antenna, and using the related Green’s function. 

In the analysis of LTSA’s on a dielectric substrate the proceeding assumptions do 
not lead to an analytical solution due to the presence of the dielectric. Therefore, for 
t his part of the analysis, he approximated the antenna taper step-wise, and solved 
the eigenvalue problem [15], to determine the aperture field distribution up to a 
multiplicative constant in each constant slot-line section [7]. Enforcing the power 
conservation principle for each junction yielded the field distribution which in turn 
was used to find the fields of the antenna with the same half-space Green’s function. 
This analysis also assumes an infinitely long structure and the effect of the dielectric is 
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not taken into account when finding the radiated fields using the aperture distribution. 

In this early work, it has been found experimentally that the radiation proper- 
ties of the antenna improve as the antenna height gets smaller [4, 7]. However, the 
summarized analysis is not suitable for the solution of this problem. It also suffers 
from the treatment of the dielectric presence. In many applications, [2, 11, 12], the 
length of the antenna is less than 3A 0 , further restricting the applicability of these 
results. Therefore, there has been a need to analyze the problem within parameter 
ranges given in Section 1. 

Contemporary to our work, attempts have been made to model the antenna by the 
MoM [9, 10]. In this work, the antenna has been modeled by the skew-plate geometry 
shown in Figure 1.2. The shortcoming of this approximation is the assumption of 
differently shaped conductor edges in the distances comparable to the wavelength. 
Since the approximated geometry of the antenna has also been utilized in experimental 
models, good agreement with measurements has been obtained. Our results [16] 
predict different radiation patterns for the real geometry of the LTSA. Also the effect 
of the dielectric still needed better consideration, since only low-permittivity («,), and 
very thin dielectric support has been analyzed [10]. 

In electromagnetic radiation and scattering problems there are two mam ap- 
proaches: Differential equation (DE) modeling and integral equation modeling [17]. 
Traditionally, DE models are used in bounded problems and IE models are employed 
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in exterior radiation and scattering problems. In DE models, the problem region is 
divided into meshes and the unknown is approximated by a function in each cell. The 
satisfaction of the boundary conditions at each mesh boundary yields the unknowns 
related to the fields. In IE models, the integral equation describing the problem is 
obtained first, then, the unknown in the equation is expanded using some basis func- 
tions. Weighting of the IE with some weight functions converts the integral equations 
to a linear system of equations. Solution for the currents (or unknown in the problem) 
is obtained by standard matrix inversion or iterative techniques. By their nature, DE 
models are local and IE models are global, and as a result, the matrices obtained 
from DE models are large but sparse as opposed to the relatively small and dense 
matrices obtained from IE models. DE models are extended to radiation and scatter- 
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ing problems in unbounded regions by utilizing the “absorbtive boundary conditions” 
[18]. However, since large matrices are obtained using DE models and since the solu- 
tion times are on the same order for both of the methods, we have preferred the IE 
modeling scheme and MoM formulation [19, 20]. 

In IE methods, another recent approach is the Conjugate Gradient Method [21, 
22], which has been applied to dielectric scattering, scattering from conducting plates 
and wire antenna problems. However, it is not applicable to mixed bodies such as the 
dielectric supported LTSA. It has been applied to LTSA’s in air and infinite arrays 
of LTSA’s by Catedra et al [23]. 

1.4 Overview of Report 

The report is organized as Mows. Chapter 2 presents the formulation of generalized 
scattering or radiation from a coated dielectric body problem. In Chapter 3, the 
implementation of the method for the LTSA is explained. The modeling approach 
for the conducting and the dielectric parts of the antenna with the basis and test 
function choices for MoM formulation is given in this chapter. Possible excitation 
types for the antenna and the modeling of the source are also discussed in Chapter 
3. In Chapter 4, the results and discussion are presented. In section 4.2, favorable 
comparison to available data in the literature and to experimental measurements is 
made to verify the computational results. The accuracy of the results is checked and 
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discussed. A parametric study of air LTSA’s with changing L , H and a is given 
in section 4.3. Conclusions on the behavior of the radiation characteristics of the 
antenna with respect to these parameters are drawn. In section 4.4, the effect of 
the dielectric thickness and the permittivity on the radiation characteristics of the 
antenna are presented. The developed MoM code is explained briefly in Chapter 
5. The performance study of the code is also given in this chapter. Finally, the 
conclusions and the suggestions for future research are presented in Chapter 6. 
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CHAPTER 2 


FORMULATION OF THE METHOD 
2.1 Introduction 

Many important electromagnetic problems involve radiation and scattering from a 
dielectric body partially covered with a conductor. This general problem geometry is 
shown in Figure 2.1. In this figure, the problem is shown as a scattering problem where 



Figure 2.1: Scattering Problem Geometry 


(E‘,H‘) is the incident field and (E,H), the total field in the presence of the scatterer, 
is the unknown. The location of the source for (E\H‘) is assumed to be at infinity so 
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that (E*,H*) is not effected by the presence of the scatterer. In radiation problems the 
same formulation as for the scattering case can be used with only a proper change of 
the interpretation of the incident field. In this type of problem, (E‘,H‘) is the field of 
the source (J;,M;) which is usually on or in the structure and assumed to be known or 
approximated. When attempting to solve the problem numerically, a suitable source 
model is chosen. As a result of this modeling, some parts of the source model should 
also be included as having unknown current distribution. This is the major difference 
of the radiation and scattering cases. 

Whether it is a scattering or a radiation problem, the analytical solution of the 
total fields for Figure 2.1 is very difficult in most cases. When the geometry of the 
dielectric body is a canonical one such as a sphere or a slab extending to infinity, 
the specific Green *6 function can be derived in the frequency domain or a series 
representation of it may be obtained. However, the solution for the conductor parts of 
the structure is still very difficult and is usually carried out by a numerical approach 
[24] such as MoM. For example, when the dielectric body is a slab extending to 
infinity, the Green’s function is easy to derive in the frequency domain [24]. However, 
in the solution of the unknown conductor currents by moment method, one encounters 
Sommerfeld integrals which are difficult to integrate numerically. When using series 
form for the Green’s function, the slow convergence is a typical problem. 

When the difficulties regarding the Green’s function are considered and when the 
geometry of the particular problem does not allow these approaches, the only possible 
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way is to use numerical methods [17]. 

In order to solve the general problem of Figure 2.1 numerically, the governing 
integral equations for the conductor and dielectric regions are obtained. This is 
explained in section 2.2 These equations are then solved numerically using MoM. 
This procedure is detailed in section 2.3. In the remaining sections of this chapter, 
the dielectric body will be assumed to have the permeability, /i 0 , of free-space, which 
is the case for most antenna problems. 

2.2 Derivation of the Integral Equations 

Referring to Figure 2.1, the conducting parts of the structure ,S e , can be modeled 
by applying SchelkunofTs equivalence [14] principle. According to this principle, the 
total tangential fields determine the equivalent electric and magnetic surface current 
densities, 

J. = n x H (2- 1 ) 

M. = - n x E 

= 0 ( 2 . 2 ) 

which are introduced on the surfaces of the conductor; both bottom and top. Here, 
n is the unit outward normal to the conducting body. M, is equated to zero in 
(2.2) since a perfect conductor assumption is made and on a perfect conductor the 
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tangential electric field is zero. When J, and M, are introduced on the conductor, 
the conductor can be removed and the currents J«, M, can be considered to radiate 
in free-space [25]. If the conductor is very thin, equivalent currents J, and M, might 
be considered as the vector sum of the currents on the top and bottom surfaces. 
Throughout the analysis this assumption will be made for the conductor regions. 

In the dielectric region, Vj, Maxwell's equations may be written as: 

VxE = — ju>/*oH (2.3) 

V x H = ju>t E 

= jute oE + — to)E (2.4) 

Subsequently, (2.4) can be rewritten as, 

V x H = ju>e oE + J« (2.5) 

where 

J e = ju(e - e 0 )E (2.6) 

Equation (2.5) can be interpreted as a Maxwell’s equation in free-space with a current 
source J e located at the position of the dielectric part of the structure. Therefore, 
one can replace the dielectric region with the equivalent volume electric polarization 
current density J t and consider the whole problem in free-space [20, 26, 27, 28, 29]. 
The equivalent problem is shown in Figure 2.2. 
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Figure 2.2: Equivalent Problem 


On the conductor regions, the total tangential electric field intensity is zero. There- 
fore, the following equation must be satisfied on the conductor surfaces. 

(E< + E' + E*)ton = 0 (2.7) 

In equation (2.7), E\ E*, and E* are the fields radiated by the sources J<, J, and 
J e , respectively. 

In the dielectric region, Vj, the condition 


E* + E* + E e = E 


J. 

jof(e — to) 


( 2 . 8 ) 


should be satisfied. 

Equation (2.8) is merely the statement of the equality of the total fields in which 
(2.6) has been used to obtain the relation with the equivalent polarization current 
density, J e , in the dielectric region. 
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All the fields produced by the equivalent sources and the source can be expressed 
in terms of the free-space dyadic Green’s function as 

E = j^J-TZdV (2.9) 



( 2 . 10 ) 

( 2 . 11 ) 


I is the unit dyad, R is the distance between the source and the field points, R = |r - 
r '|, where r and r' are position vectors to the field and source points, respectively, and 
ko is the free-space wavenumber. The V operator operates on unprimed coordinates 
which are the field coordinates. For surface current densities, equations (2.9) through 
(2.11) still can be used with surface integrals over source current densities replacing 
the volume integrals. 

As a result, equations (2.7) and (2.8) are the two integral equations that must be 
satisfied by the unknown conductor current density J, , and the equivalent volume 


polarization current density J e . 

Equation (2.7) states that the total tangential electric field intensity on a con- 
ductor surface is zero. Therefore, if a test source J TO is placed in the conductor, its 
reaction [25] with all other sources, (J*, J., J«), will be zero. In equation form this 
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can be written as: 


j s J. • E m dS + jf J< • E m dS + J v J« • E’W = 

[ J m • E'dS + f l m E‘dS+f J„ • EMS = 0 (2.12) 

JSm, JS m 

where 5j and S m are the regions in which Jj and J m are nonzero. The field E m is the 
field radiated by J m in free-space. 

Equation (2.12) is a reaction integral equation for the two unknown current den- 
sities J. and J«. Satisfaction of this equation ensures that these currents have the 
proper reaction with a test source on the conductor surface. However, this does not 
insure the satisfaction of the field equality equation, (2.8), in the dielectric region. 
In order to incorporate the effect of the dielectric, we will multiply (2.8) by a vector 
weighting function W TO , and integrate over Vj, to obtain, 

f ( E * + E e A-t) • W m dV = -\ E‘ • W m dV (2.13) 

JVi jw(e - e 0 ) Jv d 

Let us rewrite equations (2.12) and (2.13) as: 

/ J, • E TO + [ J« E m = - / J» • E m 

JSt JV d JSi 

= -V„ (2.14) 

/ (E* + E* — . , J * , )'W.1V = — / E‘ • Y? m dV 

Jv 4 — c 0 ) Jv * 

= -V m . (2.15) 
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Equations (2.14) and (2.15) contain the unknown current densities in their kernels 
and are the governing reaction integral equations for the problem of Figure 2.1. These 
two coupled integral equations must be solved to find the unknown conductor and 
dielectric polarization current densities J, and J e , respectively. The equations (2.14) 
and (2.15) must hold for any arbitrary test function J m and W m . However, in order to 
solve these equations numerically with MoM, N distinct J m and M distinct W m will 
be used to reduce the equations to a square matrix equation, where N and M are the 
number of expansion functions for the conductor and dielectric regions, respectively. 

It is worthwhile to mention here that, although the reaction concept is utilized to 
obtain (2.14), it is essentially an inner product of the integral equation (2.7) by the 
test functions J m similar to the dielectric equation (2.8) and its inner product (2.15). 

2.3 Solution of the Integral Equations by the Method of 
Moments 

In order to solve equation (2.14) and (2.15) by MoM, the unknown currents are 
expanded as follows: 


N 


, = £ I m J m 

ft= 1 

(2.16) 

N+M 

= £ lenten 

n=N + 1 

(2.17) 


The total conductor surface current J, is expanded by using the basis functions 
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I n the dielectric, the volume polarization current density is similarly expanded 
using the basis functions Jen* I n (2.16) and (2.17) 3 m and Jen have known forms 
and J m and I m are the unknown multiplicative constants to be determined. In 
general, since the conductor current is a surface current density, J m should contain 
two orthogonal components, whereas Jen is a volume current density and should 
contain three. 

Substituting (2.16) and (2.17) into (2.14) and changing the order of integration 
and summation gives, 

n , ff+M r 

EU/ J.«-E”*dS) + £ I m (]3 m -E m dV) = -V m 

n^l JS ‘ n=N + 1 JV * 

= - [ 3i • E m dS (2.18) 

JSi 

In (2.18), since J m ,J*n and E TO are known, the integrals may be evaluated leaving 
a linear equation in JV + M unknowns. Since E m is the field of the test sources which 
are placed on the conductor, using N test sources in (2.18) gives N equations in 
N + AT unknowns. 

Similarly, when (2.16) and (2.17) are substituted into (2.15) we obtain, 


£/«,(/ E"*-W m dV)+ 
JV * 

N+ M . J 


= -v m 


= - / E^W m dV (2.19) 

Jvt 
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where E" 1 and E*” are the fields produced by the surface and the volumetric basis 
functions (currents), J„ and J*., respectively. When M weighting functions are used 
in (2.19), M equations in N + M unknowns result. Together with those obtained 
from (2.18) a square matrix of order N + M is obtained. 

Equations (2.18) and (2.19) represent a linear system of equations which can be 
written compactly, 

JV+M 

'£l n Z mn = V m form=l,...,tf + M (2.20) 

n=l 


or in the matrix form as, 


ZI = V 


( 2 . 21 ) 


where, Z is the square impedance matrix, I is the current vector, and V is the 
excitation or voltage vector, and, 


I n = < 


if » = 1, • • • , N 

j£n — N + N + M 


( 2 . 22 ) 


V m = { 


-J s .3iE m dV if m = 1, • • • , JV 


(2.23) 


[ - f Vd E< • W m dV ifm = N + 1,---,N + M 

After the matrix elements, are calculated using numerical integration, the 
unknown current coefficients are solved by standard inversion or iteration procedures. 

Until this point the method is general in the sense that, neither the basis functions 
for the conductor and the dielectric, nor the testing (weighting) functions for them 
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are specified. The difficulty or the complexity of the matrix element evaluation and 
the computation time for them are heavily influenced by these choices. The chosen 
basis and testing functions and their impact on the implementation of the method 
for LTSA’s will be explained in the next chapter. 
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CHAPTER 3 


IMPLEMENTATION OF THE METHOD FOR 
LINEARLY TAPERED SLOT ANTENNA 

3.1 Introduction 

In this chapter, the implementation of the method explained in chapter 2 will be given. 
In order to apply the formulation of the previous chapter to the antenna geometry of 
Figure 3.1, the conducting parts of the antenna should be approximated by a surface 
modeling scheme. The definitions of the unknown currents on the conducting surfaces 



Dielectric 

Figure 3.1: LTSA Geometry 
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will complete this part of the analysis. The next step is to approximate the dielectric 
geometry and define the unknown currents for the dielectric region. When the test 
functions for both the conducting and the dielectric parts are determined, the matrix 
elements can be calculated. 

The approximation of the conducting and dielectric parts also involves the model- 
ing of the source. Depending on the source modeling, unknowns related to the source 
may be included in the matrix equation. 

After the matrix equation is obtained by calculating the matrix elements and the 
right-hand side vector, the solution of this equation gives the unknowns. Once the 
unknown currents are calculated, any necessary information of the antenna such as 
the far-field radiation pattern, field distribution in the dielectric, input impedance, 
can be calculated easily. 

3.2 Conductor Modeling 

Possible choices for modeling the conductor surfaces are triangular sectioning [30, 31], 
polygonal plate modeling [32, 33, 34], or a combination of these with rectangular sec- 
tioning [35, 36]. As mentioned in chapter 2, the complexity of the matrix element 
calculation depends on this choice. Although triangular and polygonal plate modeling 
schemes are better in conformity to the surface than rectangular sectioning, the num- 
ber of integrations involved in calculating the matrix elements is larger. Triangular 
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sectioning is best suited for modeling the LTSA geometry, however the integrations in 
the matrix element calculations have to be carried out on a triangular domain which 
is costly and difficult to do numerically. Polygonal plate sectioning is also suited to 
modeling the LTSA geometry. The difficulty in matrix element calculation however is 
worse than both the triangular and rectangular sections. The matrix element calcula- 
tion integrations are four-fold in this case. Rectangular sectioning gives the simplest 
expressions for the matrix elements and is the least costly in terms of the computa- 
tion time. Hence, whenever applicable, rectangular sectioning offers simplicity and 
computational savings. Referring to Figure 3.1, the range of the taper angle for useful 
antennas was determined earlier [4] to be less than 9 degrees. This small taper angle 
allows a good approximation with the unequally sized rectangular segmentation of 
Figure 3.2. 



Figure 3.2: Unequal Size Rectangular Sectioning 
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3.3 Conductor Basis and Test Functions 


The conductor current basis fuctions are chosen as overlapping piecewise sinusoidal 
functions. The current on the ith segment of the conductor consists of two monopoles. 
The current starts on the segment i and extends to the next segment. Each segment 
carries a monopole current which has components and J mi defined by, 

_ 1 f Iu Bm[ko(hj - Zj)] + hi sin(feoZi) 

** ~~ ** 2wi \ sin(fcofii) 

1 j Iu sin[fco(ti\- — **)] + hi sin[fc®(u»< + *i)] 

Jmi = ** \ sin(2fcoii»a) 

where a, and a, are the unit vectors in the directions of z and z, respectively, 2 u>, - is 

the segment width, and hi is the segment height. Iu and hi are terminal currents, 

and take the values either 0 or 1. z; and Zj are the local coordinate variables of the 

monopole measured from the bottom and the center of the monopole, respectively 

(See Figures 3.4 and 3.5). The * component of the monopole current extends h i+i 

along z, to provide current overlap for the successive unequal-size rectangular sections. 

These monopole currents are piecewise sinusoidal in the current direction and constant 

transverse to it, and are the same as those in [25]. 

The combination of the two neighboring segment currents creates one unknown 
for the conductor. This combination and the resulting current distribution is shown 
in Figure 3.3. As seen from Figure 3.3, the conductor currents are continuous in 
the current direction since every surface dipole current overlaps a neighboring one. 
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(a) (b) 


J(x) 


1 


0 2wj 

(c) 

Figure 3.3: Piecewise Sinusoidal Conductor Currents a) Segment geometry b) Distri- 
bution in Current Direction c) Distribution in Perpendicular Direction 


The current is a constant with respect to the coordinate perpendicular to the cur- 
rent direction. The continuity of the current is a desired property for two reasons. 
Firstly, the current on the conductor is continuous, therefore, using continuous basis 
functions allows a good approximation, especially where the current is rapidly vary- 
ing. Secondly, a discontinuous current approximation creates line charges where the 
current is discontinuous. Since this would be a fictitious line charge that shouldn’t 
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be present it might lead to erroneous results for antenna currents and therefore other 
calculated results. 

The test functions to complete the application of (2.18) are chosen the same as the 
basis functions. This is called Galerkin formulation. For this specific choice of basis 
and test functions, the matrix elements for the conductor-conductor interactions be- 
come mutual impedances between the respective currents. These mutual impedances 
are obtained by summing up the four monopole- to-monopole mutual impedances [25]. 
With the rectangular sectioning and the defined current distributions, there are only 
two types of monopole- to- monopole mutual impedance calculations. These are par- 
allel and perpendicular cases which are shown in Figure 3.4 and Figure 3.5. With 
this choice of rectangular sectioning and current definition the monopole- to-monopole 
mutual impedances of Figure 3.4 and Figure 3.5 were earlier calculated by integrating 
the mutual impedance of line currents [36, 37, 38, 39] over the monopole surfaces. 
The simplest formula for the parallel case is reported in [40]. For the perpendicular 
case, a one dimensional integral formula for the mutual impedance between a dipole 
and a monopole is reported in [41]. None of these earlier formulations is valid for 
unequally sized parallel or perpendicular monopole-to- monopole interactions. The 
direct integration for the surface currents leads to faster and easier evaluation of ma- 
trix elements even in the general case of unequal size segments. Simple formulas for 
the mutual impedances of the two cases shown in Figure 3.4 and Figure 3.5 have 
been derived and reported in [42]. The derivations and the resulting expressions will 
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not be repeated here, however, it is worthwhile to mention that the parallel case 
contains only one- dimensional integrals and the perpendicular case is in closed form, 
containing exponential integrals only. It is these simple formulas that led to the 
choice of unequal size rectangular sectioning of the conductor. Tremendous savings 
of computation time makes possible the use of finer gnd sizes and therefore better 
approximations of the antenna geometry. Another resulting benefit of the rectangu- 
lar sectioning is the increased symmetry that further reduces the computation time. 
In large method of moment calculations it is important to consider the symmetries 
and eliminate the unnecessary computations. In summary, compared to triangular 
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and polygonal plate modeling, rectangular sectioning is more efficient for the LTSA 
geometry. 

3.4 Dielectric Modeling 

The dielectric region of the LTSA of Figure 3.1 is a rectangular slab with a thickness 
d. Therefore, any sectioning scheme would easily conform to its geometry. The most 
common modeling technique for the slab geometry that has extensively been used in 
the earlier work is cubical sections [26, 27, 28, 29]. For arbitrary dielectric shapes, 
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tetrahedron modeling has been employed [43] . Since cubical sectioning has been 
successfully used in the modeling of similar antenna structures, it has been employed 
in this work (See Figure 3.6). 



Figure 3.6: Dielectric Segmentation 


3.5 Dielectric Basis and Test Functions 


In the dielectric region, pulse basis functions are employed which are suitable for 
the segmentation of Figure 3.6. Therefore, the polarization current density in the 
dielectric region is expanded as 


J«( x >y>*) 


OCi 


-a* + 


A 


L y L, L m L z 


tty + 


7» 


L m Ly 


(3.3) 


if (z,y,z) is in the i-th cell , (Figure 3.6), and zero if outside. 

In the analysis of microstrip antennas, the assumption of infinite dielectric is 
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usually employed [44, 45, 46]. Since the finite dimensions of the dielectric are ignored 
in this assumption and since Sommerfeld-type integral evaluations are necessary for 
the calculation of the matrix elements, this approach is unsuitable for the LTSA 
analy sis . In the analysis of scattering by homogeneous dielectrics, surface current 
formulations have also been employed [47, 48], which is also applicable to the LTSA 
problem. However, the case study for a sample LTSA has revealed that the surface 
current formulation would lead to larger matrix sizes and more difficult numerical 
integrations for the matrix element computations compared to the volumetric pulse 
expansion given in equation (3.3). The simplicity of volumetric pulse functions in 
terms of integration complexity was also the reason why overlapping triangular or 
sinusoidal basis functions were not preferred. 

The expansion of the dielectric volume polarization current density by (3.3) satis- 
fies the criteria that the divergence of the electric field intensity inside a homogeneous 
dielectric region is zero [29]. However, it introduces surface polarization charges on 
the faces of the volumetric pulses. The effect of these surface charges has been found 
to be negligible for the LTSA modeling. 

The same modeling scheme for the dielectric regions has been successfully applied 
to dielectric scattering problems and wire antenna problems [28]. Recently, it has 
also been applied to the analysis of microstrip antennas [29]. 

The test functions for the dielectric region are chosen as delta functions located 
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at the center of each cell and directed in a«, a„ and a, directions. When employed 
in (2.19), this test function choice results in the field equation (2.8), which is merely 
a statement of the equality of the total fields at the center of each dielectric segment 
and for each component of the electric field intensity in a., ay and a, directions. 

The reason for the choice of this test function is basically its simplicity. Other test 
functions would introduce additional complexity in addition to already numerically 
difficult field calculation for three dimensional sources, especially in the source region 
itself [49]. 

3.6 Source Modeling 

Good source modeling in the LTSA analysis is very important because of the fact 
that the source can contribute to the radiation pattern appreciably. The reason for 
the source contribution is the openness of the feeding structures. The source region 
of the LTSA may differ appreciably according to the mode in which the antenna is 
being used or according to the feeding structure that is employed. Two of the most 
commonly used source configurations are shown in Figure 3.7. When the antenna 
is used in the receiving mode, power can be picked up easily by a detector diode 
soldered across the apex of the antenna as shown in part a) of Figure 3.7 

The second source configuration employs a microstripline-to-slotline transition 
[50] as shown in part b) of Figure 3.7. In this figure, Li is the input transition 
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(a) 


L i-~ 



(b) 

Figure 3.7: Possible Source Configurations of the LTSA a) Receiving mode with a 
detector diode b) LTSA with a microstripline to slotline transition 

length, xsO is the distance of the microstripline to the antenna edge and W q is the 
width of the microstripline. In this configuration power is delivered to the slotline 
with a microstripline which extends A m ,/4 past the slotline edge, where A mt is the 
microstrip wavelength. Slotline, on the other hand, is short-circuited A*j/4 away 
from the microstripline edge, A*j being the slotline wavelength. This configuration 
creates a resonant structure with a very good voltage standing wave ratio over narrow 
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bandwidths [50]. The bandwidth can be increased by using matching circuitry on the 
microstripline, while impedance matching the latter to the other parts of the circuit 
at the same time. 

Different source configurations of the LTSA must be modeled differently. For the 
diode reception mode, the diode is modeled as a dipole with a delta gap generator 
at its center [20]. When the dipole thickness is made equal to the thickness of the 
detector diode, it has been shown earlier that this source modeling yields good results 
[ 10 ]. 

For the input configuration of Figure 3.7, the microstrip radiation is initially 
modeled by an infinitesimal current element at the center of the slotline and the 
other parts of the antenna are approximated by rectangular sectioning, including the 
short circuit for the slot line. This has been accomplished by introducing another 
current at the exact short circuit location. The length of the short circuit current 
is made greater than the slot line width so as to make the current flow between 
the lower and upper parts of the antenna. It is found that the current element 
modeling for the microstripline gives very satisfactory results for the co-polar radiation 
characteristics of the antenna. However, it cannot predict the correct level of cross 
polarized radiation in the boresight direction. Therefore, a third source model is 
developed which accounts for the microstripline rigorously, by defining currents on 
the microstrip as well. The feed point of the microstrip is approximated by a current 
element in y direction, which avoids the difficulty of introducing the connection mode 
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currents between the microstripline and the antenna plates. This third model is found 
satisfactory for determining the radiation characteristics of the antenna, as will be 
seen in Chapter 4. 


3.7 Evaluation of the Matrix Equation 


The choices of the conductor and dielectric basis and test functions of sections 3.3 and 
3.5 determine how the matrix elements will be computed. Assuming N unknowns 
for the conduc ting parts and S segments for the dielectric region, there will be 3 S 
unknowns in the dielectric. Therefore, 3 S = M of (2.19). If we consider Z as, 


Z = 


Asxn BnxM 
CmxN DmxM 


(3.4) 


A and B submatrices will have elements which are calculated by reaction integrals. 
For currents J; and Jj the reaction integral is given by 


4 , = j*.l, 
= /,*•* 


dS 

dS 


(3.5) 


where E < and E-» are the fields radiated by Ji and Jj, respectively, and Si and Sj 
are the regions where Ji and Jj are nonzero. Submatrix A consists of the conductor- 
conductor interactions. Its elements are calculated by the reaction integrals between 


the conductor currents only. The calculation of these elements is explained in Section 
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3.3 since it is related to the geometry approximation directly. These elements are 
calculated by using the expressions reported in (42]. 

Since delta functions axe chosen as the testing functions in the dielectric region, 
C and D submatrices are comprised of the fields radiated by the conductor currents 
and the dielectric polarization currents respectively at the center of each segment. 
Evaluation of the C submatrix elements is carried out using field equations for piece- 
wise sinusoidal line sources [14]. The field of any conductor current can be found by 
adding the fields of the corresponding monopoles that makes up the whole current. 
Referring to Figure 3.1, conductor currents can be in x or z directions only. For a 
current in z direction, the components of the electric field intensity, Z C d., where a 
stands for x, y or z component, can be found as 

, V /*"" _ + ^rtlM (3.6) 

CD ‘~h KM> - *)’ + (MO’I 


* ^ fkov* koH(koL + /3 m ) esp( jRm) 7) 

Zcd, = Ci 2_. J_ Kui k^d - *)1 + (toff)>| ft. 


(3.8) 


i= 1 m=l 

where D, H and L are the distances between the center point of the monopole i and 
the center of the dielectric cell, in x, y and z directions, respectively, as shown in 
Figure 3.8. The various other parameters are 
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Figure 3.8: Geometry of conductor and dielectric currents 


r — j30fcq 

2fcoU>; sin(fco^i) 

ai = hi cos(kohi) - Iu 

a 2 = hi - h* cos(kohi) 

fii = —kohi 

fa = 0 

IU = [(koL + /3 m ) 2 + (koD - xf + (*off)T /J • 


The fields of the x-directed currents can be found using equations (3.6-3.8) with 
a coordinate rotation. 

Returning to the submatrix B, and considering that its elements are the reaction 
integrals between the conductor currents and the dielectric currents, the following 
approach is applied in their calculation. The dielectric cell is divided into smaller 
cubical sections and the fields of the conductor current is calculated at the center of 


36 




each small section. Multiplication of these fields with the volume of the subdivision 
and summation over the cell gives a good approximation to the elements of the B 
submatrix. Therefore, if the dielectric cell has dimensions L„, L v and L z and if it 
is divided into n mi n„ and n x segments in x, y and z directions, respectively, the 
reaction, Zdc, of a z directed conductor current on a dielectric current becomes 


«• w* L L L 

i=l j=l h=l »■»»»« 


where Z C D... k is the field of the conductor current at the center of the subdivision 
ijk, and s represents x, y or z directed dielectric current. The interactions between 
the x-directed conductor and dielectric currents can be found by using (3.9) with a 
coordinate rotation for the conductor current. This approximation to the dielectric- 
conductor interaction submatrix B is justified because of the fact that MoM usually 
yields diagonally dominant impedance matrices. Since the elements of B are off- 
diagonal, the results will not be as sensitive to errors in the calculation of these 
elements compared to the ones in diagonal elements of A and B. 

The elements of the submatrix D are directly calculated using equations (2.9- 
2.11). When calculating the field of a cell current in itself, the singularity in the 
expression is extracted as suggested in [49]. For the off-diagonal elements of D, the 
same type of approximation as (3.9) is made to reduce the computation time. 

The voltage vector calculation also follows the same approach. The first N el- 
ements are the reactions of the source and the conductor expansion currents, the 
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remaining M = 35 are the fields radiated by the assumed source distribution at the 
center of the dielectric segments. 

All of the numerical integrations for the evaluation of the matrix elements are 
carried out using Gauss- Chebychev quadratures which are suitable for oscillatory 
kernels. 


3.8 Solution of the Matrix Equation 

The matrix equation, 

ZI = V (3.10) 

is solved by using the Conjugate Gradient (CG) method [51, 52, 53]. CG method is 
an iterative conjugate direction method. In Conjugate Direction method the error 
functional is minimiz ed successively in the directions of a set of Z-orthogonal vectors. 
A set of vectors P n , n = 1, 2 ,...,(N + M) is said to be Z-orthogonal (or Z-conjugate 
if they satisfy 

< ZPi , P; >= 0 for » ^ j (3.11) 

where * denotes the conjugate. 

In conjugate direction methods, at each iteration, In + oinP n is minimized where 
P n lies on the (N + M - 1) dimensional hyperplane 

< p; , ZI- V >=0 (3.12) 
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whose normal is ZP. The conjugate direction methods differ in the way P„ are 
obtained. When the vectors P„ axe obtained by Z-orthogonalization of the residual 
vectors, Rn, which will be defined subsequently, a CG method results. 

The CG method is applicable to Hermitian matrices (operators). In the dielectric 
supported LTSA case the matrix Z is not symmetric and hence, CG method cannot 
be applied to (3.10) directly [51]. In order to satisfy the symmetry and the positive 
definite requirements for Z, both sides of (3.10) can be multiplied by Z r , where T de- 
notes transpose conjugate. The CG algorithm can then be applied to the transformed 
equation without actually forming the product Z r Z [54]. 

For an initial guess Io, the CG method starts by evaluating, 

Ro = V ZIo 

Po = Z t Ro (3-13) 

and then develops each successive approximation by, 

Wl = In + OnPn (3-14) 


where 

l|Z T R,||* 
IIZP.II ' 

The residual vectors are generated as 


Rn+l — R-n On^P,, . 


(3.15) 


(3.16) 
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The direction vectors at each iteration are obtained as 


P n+l — Z^Rn+l + ^nPn 


(3.17) 


where 

l|Z r Rn-nH 3 
Pn ~ IIZTR.il • 


(3.18) 


This algorit hm minimiz es the norm of the residual, ||R*||, at each iteration. The 
iterations are terminated when the error norm, ||Rn|| is less than some ratio of the 
initial error norm, ||R«||. The initial guess in this work is taken as zero vector in all 
computed results. Therefore, ||Ro|| = V. When ||R.|| < l<>- 4 ||Ro||, the iterations 
are terminated. Different tolerance values (IO" 6 , IO" 6 ) have also been employed to 
check the sensitivity of the results around the solution with the same input data. 
The solutions obtained with smaller tolerances are nearly identical in terms of the 
radiation pattern and current distribution, and hence, 10 -4 is used in further results. 

CG method has many nice features that make it useful in the solution of large 
linear systems of equations such as the one obtained in the LTSA analysis. Some of 
these which might explain the preference of CG iteration over the direct methods can 

be outlined as [54, 55]: 


• The method is highly insensitive to the initial guess Io. As mentioned earlier, 
Io = 0 is chosen in all of the computations involved in this work, with no 
difficulty in obtaining the solution. 
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• The number of iterations required for CG method is equal to the number of 
distinct eigenvalues of the matrix Z [54]. This property makes CG method 
especially useful for large MoM applications, since in most of the cases, the 
eigenvalues of Z are closely spaced. Actually, it is this property that favors 
CG method over direct methods since CG method lowers its computational 
cost with closely spaced eigenvalues. In order for CG method to be less costly 
compared to Gaussian Elimination, the number of iterations should be less 
than (N+M)/ 3, where (N+M) is the size of the matrix Z. Most of the results 
in this work are obtained with number of iterations less than this number. 

• The convergence of CG method is 1 /K quadratic [54], assuming that the so- 
lution is reached in K iterations. The reason for this rate definition of Sarkar 
[54] is that the algorithm requires K steps to achieve the effect of one step of 
a method with a true quadratic convergence rate. 
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CHAPTER 4 


RESULTS AND DISCUSSION 
4.1 Introduction 

In this chapter, the results of the analysis of LTSA’s in air or with a dielectric support 
will be given. Verification of the computed results and comparison to experimental 
measurements are given section 4.2. A parametric study of air LTSA’s is explained 
in Section 4.3. Finally, the computed results for dielectric LTSA’s are presented in 
Section 4.4, where the effect of the dielectric thickness and permittivity are investi- 
gated. 

The radiation patterns of the antenna in the .E-Plane , E-Plane and the D-Plane 
are used throughout this chapter. With the coordinate system of Figure 3.1 for the 
antenna configuration, E-Plane of the antenna coincides with the x — z Plane, whereas 
E-Plane is the x-y plane, as shown in Figure 4.1 and Figure 4.2, respectively. The D- 
Plane is a diagonal plane located at 45 degrees to the E and E-Planes. The radiated 
patterns are measured and computed for co-polar and cross-polar components. The 
co-polar component of the field of the antenna is the 9 component for both principal 
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Figure 4.1: El-Plane of the LTSA 



Figure 4.2: H-Plane of the LTSA 
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planes ( E and H). Therefore, E and H plane data are measured by considering 
Figure 4.1 and Figure 4.2, and measuring the field component in the direction shown 
by the direction of E in the mentioned figures. In the E-Plane, <f> = 0 degrees 
and 9 is varying, whereas in the H-Plane, 9 = 90 degrees and <f> is varying. These 
can be better understood by considering Figure 4.3 which shows the LTSA and the 
standard gain antenna positioning. In Figure 4.3 it is assumed that the test antenna 
(LTSA) is used in receive mode and the polarization of the transmit antenna is as 
shown, however, everything remains for the transmit mode operation of the LTSA. 
Considering Figure 4.3, co-polar measurements can be listed as: 

• E-Plane: fi T = 90 degrees, fit = 90 degrees. 

• H-Plane: /3 r = 0 degrees, fit = 0 degrees. 

• D-Plane: fi T = 45 degrees, fit = 45 degrees. 

For cross-polar measurements, changing the polarization of the transmit antenna 
will be sufficient, which means changing fit- This measurement strategy for the cross- 
polarized fields conforms to the third definition of Ludwig [56]. Therefore, cross-polar 
measurements can be done with the following set-up. 

• E-Plane: fi r = 90 degrees, fit = 0 degrees. 

• H-Plane: fi r = 0 degrees, fit = 90 degrees. 
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• D-Plane: /3 r = 45 degrees, ft = -45 degrees. 

4.2 Verification of Computed Results 

Numerical results obtained using the code are tested and verified both compute 
tionally and experimentally. First, the unequal-size rectangular sectioning scheme 
of section 3.2 is tested. In order to do this, the analysis is extended to handle all 
four edges of the skew-plate antenna of Figure 1.2. The results of this analysis is 
compared to those obtained from another code which uses skew segments, and hence 
models the skew-plate antenna exactly in the geometrical sense. In many cases that 
are computed, very good agreement is observed between the results. Figures 4.4 
and 4.5 show the comparison for the £-Plane and fT-Plane co-polar radiation pat- 
terns, respectively, for a skew-plate antenna with L = Ao, H = 0.5A o , a = 5 deg 
and Wf = 0.004A o . In the skew segmentation model, 7 segments across the length 
and 4 segments across the height are used. In the rectangular model, the number of 
divisions are 8 for the length and 5 for the height. As can be seen from Figures 4.4 
and 4.5, the two computations agree very well, the largest difference between the two 
being about 1 dB. Considering that all four sides are approximated with unequal-size 
rectangular modeling and the fact that there is only one edge in the actual LTSA 
geometry, which is approximated in this manner, it is concluded that the accuracy 
would be even better in that case. 
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E 


Figure 4.3: Antenna configurations a) LTSA positioning, b) Standard gain 
positioning. 


antenna 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4 4: Comparison of E-Plane radiation patterns for skew-plate and unequal-size 
rectangular modeling (L = 1.0A o , H = 0.5A o , W f = 0.004A o , a = 5 degrees). 



ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.5: Comparison of H-Plane radiation patterns for skew-plate and unequal-size 
rectangular modeling ( L = l.OAo, H = 0.5Aq, Wf = 0.004Ao, ot = 5 degrees). 
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The convergence of the unequal size rectangular sectioning model is usually ob- 
tained iming 6 to 7 segments per wavelength across the length and 4 to 5 segments per 
wavelength across the height of the LTSA. The number of segments required across 
the length is larger because the unequal-size rectangular sectioning is more sensitive 
to segmentation across the length. Figures 4.6 and 4.7 show the radiation pattern 
comparison for two different segmentations in the E and H planes, respectively, of 
a skew-plate antenna with parameters L = 5.2Ao, H = 0.9Ao, Wf = O.O6A0 and 
o = 7 deg. The data represented by solid lines in these figures are obtained by 



ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.6: E-Plane radiation pattern for a skew-plate antenna with two different 
segmentation (I = 5.2 Aq, H = 0.9Aq, W/ = O.O 6A0, a = 7 degrees). 


using 30 segments across the length and 6 segments across the height, whereas the 
dotted lines are obtained using 35 and 7 segments across the length and the height, 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.7: H-Plane radiation pattern for a skew-plate antenna with two different 
segmentation (X = 5 . 2 Ao, H = 0.9Ao, W/ — O.O 6 A 0 , ot = 7 degrees). 

respectively. As can be seen from the figures, the analysis results are very close to 
each other until 150 degrees. The effect of the difference in segmentation is observed 
only after 150 degrees, displaying the good convergence behavior of the algorithm. 
The parameters of this antenna are chosen the same as that analyzed in [10, 5]. The 
results of Figures 4.6 and 4.7 agree very well with those reported in [10]. 

The ultimate test on any electromagnetic modeling code is done by calculating the 
near fields at the conducting boundary and in the dielectric region and checking the 
calculations for the satisfaction of the boundary conditions [17]. The cost of this test 
is the same as the solution of the MoM matrix equation and hence is not practical 
for large problem sizes. However, an easier approach to test the near-field behavior 
of a code is to calculate the current distribution on/in the structure and check it for 
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abnormalities in the amplitude and phase. This approach is used in this work to test 
the near-field performance of the code. Figures 4.8 to 4.11 show the magnitude and 
phase plots of the current on a LTSA with L = 5.2A 0 , H = 1.5Ao, Wf = O.O6A0 and 
a = 7 deg. 



Distance to edge (wavelengths) 

Figure 4.8: Magnitude of antenna current along z = 0.75A o . — : : J*- 

Figures 4.8 and 4.9 show the magnitude and phase variation of the * and z com- 
ponents of the antenna current along a horizontal (z) cut at 0.75Ao away from the 
lower antenna edge. Figures 4.10 and 4.11 gives the same components for horizontal 
( z ) cut at 2.53A 0 away from the antenna edge. The traveling wave nature of the z 
component of the current is evident in Figures 4.8 and 4.9, and both the amplitude 
and the phase are free of abnormal behavior. The current displays a standing wave 
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Distance to edge (wavelengths) 

Figure 4.9: Phase of antenna current along z = 0.75Ao. — : Jz, : J m - 



Distance to edge (wavelengths) 

Figure 4.10: Ma gni tude of antenna current along x = 2.53A 0 . — : «/*, : Jw 
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Distance to edge (wavelengths) 

Figure 4.11: Phase of antenna current along z = 2.53Ao. : > : 

nature in z direction, as shown in Figures 4.10 and 4.11. This should be expected 
because the antenna height is small (1.5A 0 ) and the current bounces back and forth 
between the two edges of the antenna. 

Computed results are also verified by experimentation. For this purpose, two 
antennas are built and measurements are taken in E y H and D planes. The first an- 
tenna is intended to check the air LTSA results and was built using 5-mil brass sheet 
and supported using styrofoam which has a permittivity (1.05), very close to that of 
free-space. Microstripline to slotline transition is used in the feeding section of the 
antenna which extends 0.5A o , where A 0 is the wavelength at the operating frequency 
of 9 GHz. The feeding part of the antenna is designed using 31-mil, e, = 2.33, Duroid 
substrate. The substrate is terminated abruptly at the apex of the antenna, where 
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the taper starts. The guidelines given in [50] are used to design the microstripline to 
slotline transition which resulted in slotline impedance of 138.20 and microstripline 
impedance of 1200. This slotline impedance is achieved with Wj = 0.659 mm 
(0.01977Ao at 9 GHz). The wavelength in the slotline is 2.88 cm (0.864Ao), whereas the 
microstripline wavelength is 2.4793 cm (0.74379Ao). The width of the microstripline 
for 1200 characteristic impedance is found as 0.4171 mm (0.0125lAo). In order to 
match the microstripline to the 500 output impedance of the test equipment, a quar- 
ter wave impedance transformer is designed at the center frequency of 9 GHz. The 
final design is shown in Figure 4.12, where H = 1.5A 0 , Li = 0.5A o , *«0 = 0.216A o , 
c = 0.01251 A 0 , d = 0.03392A o , e = 0.0679A o , / = 0.6322lAo, and g = 0.45A o . 


xsO 



Figure 4.12: Feed design of the test antenna 
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The comparison between computation and measurement for co-polar E and H 
plane radiation patterns is given in Figure 4.13. Figure 4.14 shows the comparison 
for the co-polar and cross-polar radiation patterns in D plane. In the computation 
the dielectric support at the feeding part of the antenna is modeled rigorously. The 
microstripline feed is modeled using only 120ft characteristic impedance line extend- 
ing to the edge of the antenna. In the numerical model 48 segments across the length 
and 6 segments across the height of the conductor are used. The microstripline is 
modeled by 17 segments, resulting in 1059 conductor unknowns. The dielectric seg- 
ments across length, width, and height are 4, 34 and 1, respectively, which give 408 
dielectric current unknowns. The solution time for this case was 2062 CPU seconds 
on CRAY Y-MP. 



ANGLE OFF BORES1GHT (DEGREES) 

Figure 4.13: Measured and computed co-polar radiation patterns for LTSA in air 
(X = 5.5A 0 , Li = 0.5A o , H = 1.5A 0 , W f = 0.02A o , a = 7 degrees). 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.14: Measured and computed co-polar and cross polar D-Plane radiation 
pattern for LTSA in air (L = 5.5A 0 , Li = 0.5A o , H = 1.5A 0 , Wf = 0.02A o , a = 7 
degrees). 

As can be seen from Figures 4.13 and 4.14, quite good agreement is obtained 
between the computed results and measured data. The computed pattern predicts the 
main beam and the first side lobe level correctly. The pattern shapes also agree well. 
Slight discrepancies between the two is thought to be resulting from the alignment 
errors dur ing the manufacturing of the test antenna and from the effect of the adhesive 
used to attach the antenna to the styrofoam. The difference between the cross-polar 
measured and calculated data below -90 degrees results from the use of an absorber 
piece over the source region during the measurements. However, the maximum cross 
polarization level and the cross polarized pattern is predicted correctly by the code 
until this angle. The effect of the absorber is negligible for the co-polar measurements, 
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which leads to the good agreement for this part of the comparison. 

The second test antenna is built using a 31-mil thick, e, = 2.33 Duroid substrate, 
and is used to evaluate the dielectric LTSA calculations. This antenna has the same 
feed design values as the air LTSA test antenna. Figures 4.15 and 4.16 show the 
comparison for the E and B plane co-polar radiation patterns and co-polar and 
cross-polar radiation patterns for the D plane , respectively. The computed patterns 
for this case is obtained using 36 segments in length and 6 segments in height for the 
conductor parts, 17 segments for the microstripline, 40 segments in length, 1 segment 
in height and 24 segments in width for the dielectric region. The total number of 
unknowns is 3541 of which 661 is the conductor unknowns. The solution time for this 
case was 2766 CPU seconds on CRAY Y-MP. 

A very good agreement is observed between the computed and measured data for 
this case. The code predicts the shape and the amplitudes of the radiation patterns 
accurately for this antenna as well. Actually, the agreement is better for this antenna 
since the dielectric support of the antenna extends through the whole length of the 
antenna. In the air case test antenna, the dielectric support is terminated in the feed 
section and hence the diffraction from the dielectric edge can be appreciable and is 
not handled by the code due to choice of the basis functions in the dielectric. Also, 
the slight discrepancies after 150 degrees in dielectric LTSA comparisons is again 
attributed to the use of an absorber block in the measurements over the input section 
of the antenna which is not modeled by the code. 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.15: Measured and computed co-polar E and H-Plane radiation patterns for 
a dielectric LTSA (e* = 2.33, d = 0.02362Ao, L = 5.5Ao, Li — O.SAo, H — 1.5Ao, 
Wf = 0.02A o , a = 7 degrees). 



ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.16: Measured and computed co-polar and cross-polar D-Plane radiation 
patterns for a dielectric LTSA (e, = 2.33, d = 0.02362A o , L = 5.5A 0 , U = 0.5A o , 
H = 1.5A 0 , W f = 0.02A o , a = 7 degrees). 
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The comparisons with available data in the literature and with experimental data 
that is presented in this section leads to the conclusion that the theoretical model and 
the code can predict the radiation characteristics of air or dielectric linearly tapered 
slot antennas with reasonable accuracy. 

4.3 Computed Results for Air Tapered Slot Antennas 

In this section, computed results for air LTSA’s will be presented. In [4], Janaswamy 
has observed that as the antenna height is decreased for fixed length and taper an- 
gle, better radiation patterns are achievable. In order to address this question, a 
par am etric study of air LTSA’s is planned and carried out. Since the behavior of 
the dielectric LTSA is quite similar to the air LTSA, conclusions drawn for the air 
LTSA can also be applied to the dielectric LTSA. In the parametric study, the apex 
width, W f , of the LTSA is chosen as 2 mm (0.06A at 9 GHz) and the antennas are 
assumed to be in the receiving mode with a diode soldered at the apex. The diode 
is modeled by a strip dipole of width 0.02A and length 0.2A. Three levels for each of 
the parameters L, H and a are chosen. The levels for a are 5 deg, 7 deg and 9 deg. 
H assumes the values of A, 1.5A and 2A, whereas L varies as A, 3A and 5A. The 
analysis is valid for any frequency provided that all dimensions are the same used in 
the analysis in terms of the wavelength. These three levels for a, H and L resulted 
in 27 numerical experiments. Co-polar radiation patterns in E, H and D planes and 
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cross-polar radiation patterns in E plane are computed for all experiments. Table 4.1 
shows the experiments and the corresponding calculated figures of merit. The figures 
of merit used in Table 4.1 are: 

1. EBW: 3-dB beamwidth in the co-polar E-Plane radiation pattern, 

2. ESL: First sidelobe level in the E-Plane radiation pattern, 

3. HBW: 3-dB beamwidth in the co-polar E-Plane radiation pattern, 

4. HSL: First sidelobe level in the E-Plane radiation pattern, 

5. DBW: 3-dB beamwidth in the co-polar E-Plane radiation pattern, 

6. DSL: First sidelobe level in the E-Plane radiation pattern, 

7. DXL: Peak cross-polarization level in the E-Plane radiation pattern. 

Since the antenna and the receiving strip dipole are symmetric about the plane 
x — 0, the cross polarization is theoretically zero (— oodE), in the E and E planes of 
the antenna. This fact is also verified in the calculations. Considering Table 4.1, the 
following observations are made: 

• As E decreases for a fixed L and a, EBW first decreases and then starts to in- 
crease again. ESL also behaves in the same manner. However, HBW increases 
steadily whereas HSL decreases. The E-Plane radiation pattern follows the 
same trend as the E-Plane with first decreasing then increasing DBW and 
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Table 4.1: Results for the air LTSA study 


[Exp. No L H a EBW ESL HBW| HSL | DBW DSL DXL 

HU 

B 

2| 

7T 

32.0 

-11.41 

41.2 

-5.81 

38.7 

-7.66 

-2.98 

HU 

□ 


D 

34.84 

-14.02 

41.0 

-6.06 

40.44 


-2.28 


□ 


B 

38.72 

-15.08 

42.0 

-6.49 

42.58 

-5.84 

-1.37 

■■Q 

□ 


B 

18.6 

-14.05 

48.4 

-10.07 

24.86 

-9.76 

-6.54 

5 

B 


D 

20.0 

-14.97 

48.36 

-10.35 

26.28 

-8.66 

-5.57 

6 

B 


B 

20.84 

-12.20 

48.52 

-10.65 

27.2 

ErA.IH 

BaliJI 

7 

B 


□ 

32.9 

-11.52 

65.0 

-20.38 

36.24 

5221 

-4.18 

8 

B 


B 

34.5 

-15.62 

61.84 

-19.64 

36.36 

-5.29 

-3.91 

9 

B 


B 

40.9 

-13.05 

64.64 

-20.07 

38.96 

gffKl 

•3.28 

* 10 

B 


B 

43.2 

-12.50 

52.2 

-5.63 

52.1 

-7.52 

-2.38 

* 11 

B 

2 

B 

44.0 

-11.4 

53.12 


52.40 

-6.82 


* 12 

B 

m 

B 

45.0 

-9.26 

54.2 

-5.45 

52.62 

-6.51 

-1.86 

13 

B 

m 

B 


Bill 

59.24 

-6.64 

35.74 


-2.97 

14 

B 

1.5 

D 

26.5 

BWj 

53.96 

-7.19 

34.1 

-6.26 

-3.38 

15 

B 

HI 

B 

25.12 

-3.79 

54.0 

I 

• 

to 

33.0 

-5.77 


16 

B 

1.0 

B 

38.2 

-12.31 

71.22 

-17.47 

44.2 

-5.88 

-4.72 

17~l 

B 

nn 

B 

41.6 

-10.02 

72.2 

-18.42 

46.1 

-4.75 

-4.17 

18 

B 

ill 

B 

45.3 

HQ 

73.4 

-17.3T 

48.0 

-3.93 


IHO 

a 

2.0 

B 

101.4 

-2.87 

87^1 


72.0 


0 

** 20 

a 

HU 

B 

100.6 

-2.48 

86.0 

-5.79 

71.4 

-3.67 

0 

** 21 

ID 

m 

B 

100.0 

-2.08 

84.6 

-5.05 

71.0 

-3.38 

0 

** 22 

ID 

m 

B 

95.6 

-2.45 

98.5 

-3.78 

94.0 

-3.21 

0 

** 23 

ID 

in 

B 

95.0 

BB 

92.4 

-3.20 

93.0 

-2.92 

0 

** 24 

ID 


B 

Kill 

-1.54 

87.0 

-2.56 

91.6 



** 25 

ID 

IB 

B 

81.5 

-2.49 

80.4 

-3.66 

i mm 

-5.13 

LJ 

** 26 

ID 


B 

81.0 

-2.03 

79.5 

-3.25 

95.6 



** 27 

ii 

1.0 

E 

80.4 

-1.55 

78.8 

-2.78 

93.8 

| -4.37 

2J 


DSL. The peak cross polarization level in the D- Plane behaves differently for 
antennas of different length. For L = 5A, DXL first decreases then starts to 
increase, however, for L < 3A it Bteadily decreases as H decreases. Figures 4.17 
and 4.18 display these behaviors. The experiment numbers of Table 4.1 are 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.17: Variation of E and JJ-Plane patterns of LTSA’s with H. 

used to identify the data in these figures. 



ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.18: Variation of D-Plane pattern of LTSA’s with H. 
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• As a decreases, EBW increases. ESL decreases slightly for L = 5A. For 
shorter antennas, EBW remains nearly the same, however ESL increases. The 
H - Plane of the antenna is not as sensitive to variation in a, the main beam 
and sidelobe levels and the shape remain nearly the same, while lobe locations 


change slightly. Only for H = A and L = 5A, a slight decrease of HBW is 
observed with decreasing a. DBW, DSL and DXL increase with decreasing a, 
the largest deviation in DXL being for large L. These variations are shown in 
Figures 4.19 and 4.20. 



ANGLE OFF BORES1GHT (DEGREES) 

Figure 4.19: Variation of E and H - Plane patterns of LTSA’s with a. 


# As L increases, the antenna behaves as expected. All of the 3 dB beamwidths 
decrease, with decreasing sidelobe levels and peak cross polarization level in D- 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.20: Variation of D-Plane pattern of LTSA’s with a. 

Plane. However, an interesting behavior is observed for short antennas when 
the total height of the antenna is larger than the length. In these cases, the 
maximum in the E-Plane radiation pattern is not obtained in the boresight 
direction. These cases are marked with * in Table 4.1. For short antennas, 
the current does not have the traveling wave nature in x-direction any more. 
When individual segment currents in x and z directions are considered for the 
LTSA geometry, a similarity to the skewed linear antenna can be a possible 
explanation for this behavior. Depending on the included angle, the skewed line 
antenna can create a radiation pattern which has a maximum at a direction 
other than boresight. When the length of the antenna is further reduced, 
maxima of the computed patterns are obtained in the D Plane and m the 
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cross polarized direction (cases 19 to 27). This observation is again attributed 
to the fact that the radiation due to z directed currents are more important 
than x directed currents. These cases are marked with ** in Table 4.1. The 
behavior of the antenna as a function of X is demonstrated in Figures 4.21 and 
4.22. 



ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.21: Variation of E and H - Plane patterns of LTSA’s with L. 

Tn general, it is observed that the peak cross polarization level of the antenna is 
quite high for the cases considered. However, it is interesting to note that a better 
radiation pattern can be obtained by decreasing the antenna height for a fixed L and 
a. Another interesting observation is that somewhat better antenna characteristics 
can still be obtained for short antennas (X = A, for example) by keeping the antenna 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.22: Variation of X)- Plane pattern of LTSA’s with L. 

height small as well. This way, although the sidelobe levels and the cross polarization 
level are not as small as one can obtain from a longer antenna, the maximum is 
still attained in the boresight direction in the £-Plane. For array applications, this 
might be a useful design criterion since the sidelobe and cross polarization levels and 
beamwidth heavily depend on the array factor of the structure as well. 

4.4 Computed Results for Dielectric Tapered Slot Anten- 
nas 

In this section, sample results for dielectric LTSA’s will be given. In order to in- 
vestigate the effect of the dielectric permittivity, the same antenna geometry with a 
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receiving diode is computed with three different permittivities of the dielectric sup- 
port. The results with the antenna parameters are given in Figures 4.23 and 4.24. 
It is seen that, as the permittivity increases the E and 27-Plane pattern sidelobe 



ANGLE OFF BORESIGHT (DEGREES) 


Figure 4.23: Variation of the E-Plane pattern for LTSA’s with <*• 
B = 4.0, C: e, = 5.0 (L = 2.0A o , H = 0.4A o , W, = 0.01A o , d = 

degrees). 


A: Cr = 2.33, 
0.03 Aq, a = 5 


levels increase. The 3 dB beamwidth in the E-Plane remains essentially the same 
for this particular antenna geometry, whereas the 27-Plane pattern beamwidth de- 
creases. This should be expected since a higher percentage of the radiated power is 
trapped in the dielectric region of the antenna as the permittivity increases. Also, 
with increasing permittivity, the E-Plane pattern becomes more asymmetrical. 

The analysis of the antenna of Figure 4.23 with e, = 2.33 with changing dielectric 
thickness is shown in Figures 4.25 and 4.26. The same kind of behavior is observed 
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ANGLE OFF BORESIGHT (DEGREES) 

Figure 4.24: Variation of the H-Plane pattern for LTSA’s with e,. A:c, = 2.33, 
B:t = 4.0, Che, = 5.0 (X = 2.0A o , H = 0.4Ao, W, = 0.0lA o , d = 0.03A o , a = 5 

degrees). 



ANGLE OFF BORESIGHT (DEGREES) 



Wj = O.OlAo, a = 5 degrees). 


67 





ANGLE OFF BORESIGHT (DEGREES) 


Figure 4.26: Variation of the H-Plane pattern for LTSA’s with ^electric t hi c knesB, 
d.A:d = 0.02A o , B: d = 0.06A o , C: d = O.lAo (cr = 2.33, L - 2.0A o , H - 0.4A o , 
Wf = O.OlAo, a = 5 degrees). 


with increasing dielectric thickness as with the increasing permittivity. However, in 
this case the variation in the sidelobe levels is not so large, a fact resulting from the 
small value of e,. To demonstrate this effect, a high permittivity antenna (e, = 9.8) 
with changing dielectric thickness is analyzed and the results are shown in Figures 4.27 
and 4.28. In this case, the effects are much more pronounced than the low permittivity 
case of Figures 4.25 and 4.26. These observations follow those reported in [4]. 


68 




ANGLE OFF BORESIGHT (DEGREES) 


Figure 4.27: Variation of the E-Plane pattern for LTSA s with (helectnc thickness, 
d] high e r case. A: d = 0.02A o , B: d = 0.04Ao (tr = 9-8, L = 1.05A o , H - 0.38A o , 
Wf = 0.004A o , a = 5.7 degrees). 



ANGLE OFF BORESIGHT (DEGREES) 


Figure 4.28: Variation of the H-Plane pattern for LTSA ’s with dielec trie thickness, 
d, high e, case. A: d = 0.02A o , B: d = 0.04Ao (e, = 9.8, L = 1.05A o , H - 0.38A o , 
Wf = 0.004A o , a = 5.7 degrees). 
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CHAPTER 5 


COMPUTER CODE AND PERFORMANCE 


5.1 Code 

The block diagram of the code is shown in Figure 5.1. In the main program, struc, 
the geometry of the antenna is entered and the type of feeding is chosen. Subrou- 
tine mom calls the impedance matrix filling subroutines filcc, filed, fildc and fildd. 
These calculate the conductor-conductor, conductor-dielectric, dielectric-conductor 
and dielectric-dielectric interactions respectively, filvlt calculates the right hand side 
vector of the MoM matrix equation (2.22). The matrix equation is solved by the 
egrad routine which utilizes the conjugate gradient method of Chapter 3. Organiza- 
tion of the input and output files of the code and the listings of the routines can be 
found in the appendix (under separate cover). 

5.2 CPU Time and Memory Requirements 

Since large matrices result in the analysis, the performance of the code is optimized by 
both approximations in the calculations and by vectorization. The final version of the 
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Figure 5.1: Block Diagram of the Code 


code is adapted to and run on CRAY Y-MP of the North Carolina Supercomputing 
Center. The cost analysis of the code is carried out in order to estimate the necessary 
run times. For N conductor current unknowns and M dielectric polarization current 
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density unknowns, the matrix filling cost (FC) is given by 

FC = 0(N)n + 0(NM)n + 0(NM)nm + 0(M)a Flops (5.1) 

where n is the number of integration points, m is the number of subdivisions used 
in the computation of the dielectric-conductor interaction submatrix and a is the 
number of divisions used in the dielectric to dielectric interaction approximations. It 
is seen from (5.1) that FC is linearly proportional to (N + M), the total number of 
unknowns. 

The solution cost (SC) is given a 

SC < ^ - — Flops . (5.2) 

O 

As mentioned earlier in Section 3.8, (N + M)*/3 is the upper limit of SC. For most 
of the cases analyzed using the code, SC was much smaller than this limit because 
of the dominant diagonal of the resulting MoM matrix. 

The performance of the code is monitored and enhanced throughout the work. 
Figure 5.2 shows the matrix fill time and the solution time of the code on Vector 
Alliant FX-40. The filling time increases linearly as predicted by (5.1), whereas 
the solution time increases faster, dominating the CPU time usage after about 400 
unknowns. Figure 5.3 shows the comparison for the same cases analyzed using Alliant 
FX-40 and CRAY Y-MP. The big difference in the total run times in this figure 
results from the vectorization of the code and the high speed of the CRAY Y-MP 
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NUMBER OF UNKNOWNS 

Figure 5.2: Matrix fill-time and solve time on AUiant FX-40 for air LTSA’s 

supercomputer. Another influencing factor is that the CRAY Y-MP is an actual 
memory machine, so that no time is lost for array reading and writing to and from 
the disk. Figure 5.4 shows the total run time as a function of number of unknowns for 
the dielectric LTSA’s. All of these cases were calculated on the CRAY Y-MP because 
of the large CPU time that would be required otherwise. Here, it is worthwhile to 
note that the vectorization of the solution part of the code resulted in nearly linear 
behavior of the computation time instead of a higher power close to 3. 

The limi ting value of the number of unknowns in the method is set to be about 
N + M = 5000, where in a typical analysis N = 1000, and M = 4000. The run time 
memory req uir ement for this limit is approximately 26 M Words. All cases analyzed 
using the code resulted in less number of unknowns than 5000, and hence less mem- 
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NUMBER OF UNKNOWNS 

Figure 5.3: Total CPU time comparison for air LTSA’s 



NUMBER OF UNKNOWNS 

Figure 5.4: CPU time on CRAY Y-MP for dielectric LTSA’s 


74 





ory requirement. The largest case that is analyzed using the code is the experimental 
dielectric LTSA of Chapter 4, which resulted in about 4000 unknowns. For higher 
permittivity dielectrics than that was used in the experiment, (e, = 2.33), one would 
need more subdivisions in the dielectric. This, in turn, would reduce the solvable 
antenna dimensions. Therefore, as the permittivity increases, smaller antennas can 
be analyzed accurately with the code. Also, increasing the dielectric thickness would 
have the same effect since more segments than one would be needed across the thick- 
ness {y direction) of the dielectric. However, these statements are valid for current 
computational abilities and with the future developments in computer technology the 
solution of bigger problems with similar methods will be possible and less costly. 
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CHAPTER 6 


CONCLUSIONS AND SUGGESTIONS FOR FUTURE 

WORK 


In this work, a Method of Moments model for the analysis of the Linearly Tapered 
Slot Antenna is developed. The conducting parts of the antenna, including the feed 
section, are approximated closely for the first time. The finite dielectric region is 
modeled rigorously by including the equivalent volume polarization current density 
as an unknown in the formulation. The use of Schelkunoff’s equivalence principle for 
the conducting region, together with the total field equality principle in the dielectric 
region, renders the problem into one which cam be solved in free-space. As a result of 
this, the use of the particular Green’s function and the associated approximations are 
avoided. The expansion functions are piecewise sinusoidal functions and unit pulses 
for conductor and dielectric regions respectively. Conductor basis functions are also 
used in the testing of the IE leading to a Galerkin type formulation for the conductor 
parts of the amtenna. In the dielectric region, point matching is chosen to simplify 
the analysis. 

The model is incorporated into a MoM code which can analyze LTSA’s in air or 
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on a dielectric substrate, with a detector diode at the apex, or with a microstripline- 
to-slotline transition in the feed section. The code results are compared favorably 
to measurements and to available data in the literature. In order to check the ap- 
proximation of the antenna taper by unequal size rectangular sectioning, the model is 
extended to analyze the skew-plate antenna and the results are favorably compared 
to a skew-segmentation model developed in this work. The variation of the radiation 
pattern with changing antenna parameters is investigated for the air TSA and the 
results are tabulated. It is observed that, narrower 12-Plane beam widths can be ob- 
tained as the antenna height, H, is reduced. Another important observation is that 
somewhat better antenna characteristics can be obtained for short antennas (small 
L), by reducing the antenna height ( H ) as well. 

Since the matrix filling part of the MoM analysis is a major computational task, 
the computation time is reduced through the use of symmetry and the derivation 
of new simpler formulas for the mutual impedances of the perpendicular and par- 
allel coplanar sinusoidal surface monopoles. Furthermore, the speed of the code is 
enhanced with vectorization of the matrix solution part of the algorithm, which em- 
ploys a conjugate gradient iteration. 

The model predicts the radiation characteristics of the LTSA with good accuracy. 
The unequal size rectangular sectioning scheme is a suitable approach converging 
to correct results by using approximately six segments per wavelength across the 
length and four to five segments per wavelength across the height of the antenna. 
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The computation times are realizable even for the largest antenna analyzed. The 
largest CPU time that is consumed by the code was about 2400 CPU seconds for 
20 Aq air antenna, whereas the largest dielectric supported antenna (15 Aq) analysis 
consumed 3700 CPU seconds on CRAY Y-MP. Solvable problem size reduces with 
increasing dielectric permittivity, since more segments are required in the dielectric 
region because of the reduced slotline wavelength. 

Suggestions for future work can be stated as: 

• The CPU time requirements of the code can further be reduced by employing 
a table look-up algorithm in the matrix filling part of the code. This will also 
allow solution of larger structures. 

• Another extension which can make possible the analysis of even larger prob- 
lems is the employment of inhomogeneous sectioning for different parts of the 
antenna. The rectangular sectioning used in this work is homogeneous in the 
sense that the grid lines are equidistant. This approach is very simple and easy 
to implement as a computer code in terms of the identification of currents and 
the symmetry search for the impedance matrix calculations. However, not all 
parts of the antenna require the same grid for the same accuracy. For example, 
in the feed part of a microstripline fed antenna, more sections are required for 
both conductor and dielectric regions since the field is varying rapidly. Solution 
accuracy in this part of the antenna has a more important effect on the overall 
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solution compared to the sections farther away in the tapered region, since the 
wavelength in the slotline becomes larger. The same considerations also apply 
to the segments right near the taper and away from it. Therefore, the use of 
smaller sections in the feed part of the antenna and in the regions neighboring 
the taper, and larger sections elsewhere will yield smaller matrix sizes com- 
pared to homogeneous sectioning. However, the effect of this approach on the 
overall impedance matrix filling time should be studied. 

• Only LTSA’s are considered in this work. However, the developed model can 
be extended to handle other antenna structures as well. A natural extension of 
this work would be to analyze exponentially tapered slot antennas which have 
similar characteristics to the LTSA. A comparison between the two antennas 
with a par am etric study (such as the one carried out in this work) would be very 
useful to the designers in the field. In particular, the cross-polarization level 
comparison can be very important, since the cross-polarization of the LTSA 
is quite high. Another modified structure of interest is a bi- slotline antenna 
which consists of two conducting sheets each having the same geometry as the 
single TSA, separated by a dielectric stub. This antenna can also be fed by 
a microstripline-to-bi-slotline transition. However, since the microstrip feed 
is cont ain ed in the structure, better sidelobe and and cross-polarization levels 
can be obtained. 
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• Finally, with further modifications, the code can be specialized to other an- 
tenna types such as printed bi-conical antennas (provided that the antenna 
edges make small angles), and microstrip antennas. 
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MoM Analysis Code for 
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A.l Introduction 


In this part, the preparation of the executable program of the MoM code written 
for the analysis of LTSA’s is explained. The preparation of the input files with 
explanation of the input variables are described. The code listing is also included for 
easy reference in Section A. 5. 

The code described here is compatible with Unicos 6.0 Fortran 77, which is sup- 
ported by CRAY Y-MP of the North Carolina Supercomputing Center. However, 
language extensions are avoided to make transition to other systems easy. 

A.2 Preparation of ltsa 

In order to prepare the executable, all of the routines included in the makefile (See 
Section A.5) should be placed in one directory. Entering the command 

make 


in the same directory prepares and maintains the executable program. This method 
is also suitable for further modifications and development of the code because of the 
easiness of the maintenance. 

A.3 Running ltsa and pattern programs 

After the executable program is prepared, the preparation of input file has to be 
carried out which is explained in the next section. With an input file inp, and a 
desired output file out, the program is run by directing the default input and output 
to the files as follows: 
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ltsa < inp > out 


At the end of execution, the program writes the unprepared data (unformatted se- 
quential output is used to save CPU time) to the file out. Before the pattern 
calculation programs pattern and patdd can be run, this data should be organized 
using the org an! nation program org. This program uses the file out as its input 
and generates the files cur and dat. The file cur contains the current densities for 
the conductor and the dielectric regions, whereas dat contains the segmentation data 
and other input variables which have to be carried to the pattern programs for the 
completion of the analysis. The program org is run with the following command. 

org < out 

The pattern programs are written in interactive fashion, that is, the user is re- 
quired to enter the names of the input and output files and the number of data points 
in pattern calculations. 

A.4 Input File Organization and Variables 

The organization of the input file is as follows, 

flgair, flgdip, flgms 
w, wf, lo 

li, Is, lssc 

flang, new, mi 

lsc, wsc 

xdO, lend, hghd, er 
nld, nwd, nhd 

wq, If, uf 

No special formatting is required for the data, it is entered in free format. All 
lengths are required in terms of the free space wavelength at the frequency of oper- 
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ation. The descriptions of the input variables axe given below. Whenever a variable 
is not applicable for the required analysis zero should be entered in its place unless 
otherwise stated. 

Input Line 1 

flgair, flgdip and flgms determine the antenna type that will be analyzed. Different 
feeding options are also possible. The following are the currently available options. 

• flgair=l, flgdip=l, flgms=0. 

This choice of variables results in an analysis of air LTSA, with a receiver 
diode soldered at the apex 

• flgair=0, flgdip=l, flgms=0 

This set is used for dielectric LTSA’s with a receiver diode at the apex. 

• flgair=0, flgdip=0, flgms=0 

This set corresponds to dielectric LTSA’s with an input transition part 
consisting of a microstripline to slotline transition. However, the microstripline 
is modeled by an infinitesimal current element for this choice of variables. This 
source modeling gives accurate results in the E and H plane of the antenna 
and for the D plane copolar radiation pattern. It cannot predict the correct 
cross polarization level though, since its choice results in a symmetric structure 
about x=0 (See Chapter 4). 

• flgair=0, flgdip=0, flgms =1 

This set is used in the analysis of dielectric LTSA’s with microstripline 
transition. In this case the microstripline current is also included among the 
unknowns. 
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Input Line 2 

• w: w is the height of the antenna (H) in the other parts of the report. 

• wf: Apex width of the antenna. In other words, wf is the slotline width where 
the antenna taper starts. 

• lo: Length of the tapered part of the antenna. 

Input Line 3 

• li: Length of the feeding section of the antenna, not applicable when flgdip=l. 

• Is: Is is the distance of source from the apex. For microstripline it is measured 
from the center of the microstripline. Not applicable when flgdip=l. 

• lssc: lssc is the distance of source from the slotline short circuit. For mi- 
crostripline it is measured from the slot short circuit edge to the microstripline 
edge. Not applicable when flgdip=l. 

Input Line 4 

• flang: Half taper angle of the LTSA in degrees. 

• new: Number of segments across the height of the antenna for the conductor 
parts. Note that H measures the height of only one plate of the antenna, not 
the total height. 

• mi: N um ber of segments across the length of the antenna when flgdip— 1. 
When flgair=0, flgdip=0, it becomes the number of segments across the feeding 
section of the antenna. The number of segments in the tapered part for this 
case is calculated in the program using this variable. 
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Input Line 5 


• lsc : half length of the receiving diode when flgdip=l. When flgair=0 and 
flgdip=0, it is the half length of the slotline short circuit current flowing be- 
tween the lower and upper plates of the antenna. 

• wsc: Half width of the receiving diode when flgdip=l, enter 0 otherwise. 

Input Line 6 

• xdO: Distance between the conductor edge and the dielectric edge in x direction 
if the two does not extend the same length. It is measured as (xjuuctric — 

X conductor)- 

• lend: Length of the dielectric in x direction. 

• hghd: Thickness of the dielectric region (y direction). 

• er: Relative permittivity of the dielectric substrate. 

Input Line 7 

• nld: Number of segments in x direction for the dielectric substrate. 

• nwd: Number of segments for the total width of the dielectric substrate. 

• nhd: Number of segments across the thickness for the dielectric region. Cur- 
rently the approximations in the code is written for nhd=l case. Therefore, 
nhd=l should be entered in the input file. 
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Input Line 8 

• wq: Width of the microstripline, not applicable when flgms=0. 

• If: Length of the microstripline, not applicable when flgms=0. 

• nf: Number of segments along the microstrip, not applicable when flgms=0. 
(nf=l results after the execution when flgms=0, to account for the receiving 

diode.) 

In the next section, the listings of the routines used in this work will be given. 
Explanation of the function of each routine is given at the beginning of the routines. 
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A. 5 Listing of Programs 


MAKEFILE 


OBJS= mom.o struc.o fillcc.o filvlt.o decide. o par.o orthog. o \ 
filled. o f illdc.o filldd.o zxx.o zxy.o zxz.o zyy.o zyz.o 
zzz.o zcdxx.o zcdxy.o zcdxz.o zcdzx.o zcdzy.o zcdzz.o \ 
zdcxy.o zdcxz.o zdczx.o zdczy.o zdczz.o zdcxx.o \ 
gaus24.o gaus6 .o gaus4.o gau«2.o eymxx.o symxy.o symxz.o 
symyy . o symyz.o symzz.o paxtot.o ortot.o parf .o orf .o \ 
parftot.o orftot.o filvltn.o 
ltaa: l(OBJS) cgrad.o 
cf77 $ (OBJS) cgrad.o -o tsav 
struc.o: struc.f 
mom.o: mom.f 
cgrad.o: cgrad.f 
cf77 -Zv -c -Wf"-em" cgrad.f 


filvlt.o: filylt.f 
filvltn.o: filvltn.f 
fillcc.o: lillcc.f 
filled. o: filled. f 


f illdc.o: filldc.f 
filldd.o: filldd.f 
decide. o: decide. f 
par.o: par.f 
parf . o : parf . f 
partot.o: partot.f 
parftot.o: parf tot. f 
orthog . o : orthog . f 

orf . o : orf . f 
ortot.o: ortot.f 
orftot.o: orf tot. f 

zxx. o: zxx.f 

zxy. o: zxy.f 

zxz. o: zxz.f 

zyy. o: zyy.f 

zyz. o: zyz.f 


zzz.o: zzz.f 
zcdxx.o: zcdxx.f 
zcdxy.o: zcdxy.f 
zcdxz.o: zcdxz.f 
zcdzx.o: zcdzx.f 
zcdzy.o: zcdzy.f 
zcdzz.o: zcdzz.f 
zdcxx.o: zdcxx.f 
zdexy . o : zdexy . f 
zdcxz.o: zdcxz.f 
zdczx . o : zdczx . f 
zdczy.o: zdczy.f 
zdczz.o: zdczz.f 
gaus24.o: gaus24.f 
gausd.o: gausB.f 
gaus4.o: gaus4.f 
gaus2.o: gaus2.f 
symxx.o: symxx.f 
S3rmxy.o: symxy.f 
symxz.o: symxz.f 
symyy. o: symyy. f 
symyz.o: symyz.f 
symzz.o: symzz.f 


\ 

\ 
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o u o o ouu V V 


program struc main 

real lngth 9 wdth,wf ,pi,ma, expo, lex, wu( 2000) ,hu(2000) , 

+ lcz 9 a,b,flang,ls ,li, 

+ xaO , lo , wsc , lac , la sc , ar , wq ,hf , If , 

+ widd , hghd , ldx , ldy , Idz , land , Iraq , xdO 

integer ii , j j ,kj ,ncl,ncw,cnt ,j ,ml 9 m2 ,mp 9 mq,nf 9 
+ lin 9 dum2 ( 2000) 9 alnnm 9 cntu 9 dum(2000) 9 mi 9 nclo 9 n 9 

+ nld ,nhd,nwd , elnumd,mdl ,md2 ,f lgair ,f lgdlp ,f lgma 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Main program atrnc ra ads the input data, makes the c 
segmentation, nnmbara tha unknowns , calculates tha sizes o f c 
segment a. £ 


ccccc 


cc^cdcccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


read tha input variables 


c 

c 

c 

c 

c 


c 


c 

c 


read(6,*) f lgair 9 flgdip 9 1 lgma 
read(S 9 + ) w,wf,lo 
read(S 9 +) li,ls,lssc 
read(B,*0 lsc 9 wac 
read(B,*) xd0 9 land 9 hghd, ar 
read(B ,*) nld,nwd,nhd 
read(B,*) wq,lf,nf 
f lgdip=l 
llgms=0 

pi=atan(l .0)*4.0 

Antenna is represented by tha addition of linear and exp. 
terms; depending on antenna type one of the terms becomes zero 
and the other is used. Only linear taper is analyzed so lin=i 


lin=l 

if (lin.eq.l) then 
expo=0 . 0 
a=0.0 
b=l .0 

ma=tan(f lang*pi/180 . 0) 

else 

a=l .0 

ma=0.0 

b=0 .0 

endif 

if (flgdip.eq.0) then 
lcx=li7 (mi) 

nclo=int(lo/lcx) , , 

if ((lo-(nclo)*lcx) .gt. (lcx/2.0)) nclo=nclo+l 
xs0=li-ls 

wsc=(xs0-lssc)/2. 0 

ncl=mi+nclo 

lngth=(ncl)*lcx 

else 

ncl=mi 

lcx=lo/ncl 

lngth=lo 

li=0 .0 

xs0=0 .0 

mi=0 

endif 


f lang=f lang*pi/180 . 0 

lcz=wdth/(ncw) 

ml=ncl*ncw 

mp=2*ncw 

mq=2*ncw+ncl 

cnt=l 

make the segmentation for the lower plate 
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c 


c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


do 10 j=l ,ml 
dum( j )-0 
wu(j)=lcx 
hu(j)=lcz 

call decide to check if segment is in the geometry , if it is 
calculate the segment sizes 

call decide ( j , lngth , wdth , wf , ma , expo , a ,b , lex , lez ,ncl ,ncw , 

+ dum(j) ,hu(j) ,cntu,li) 

wu(j)=lcx 


10 


jj=int((j-l)/ncl)+l 

if (flgdip.eq.l) then 
if (jj.eq.ncw) then 
if (kj .eq. (mi+1)) then 
dum( j )=1 
wu(j)=lcx 
hu( j)=lcz 


endif 

endlf 

endif 

continue 


make the segmentation for the lower plate 


do IB j=ml+l,2*ml 
m2=int( (j-ncl*ncw-l)/ncl)+l 
dum ( j ) =dum ( j - ( 2*m2-l ) +ncl ) 

16 continue 

repeat the segmentation again to count the vertical currents 

do IT j=2*ml+l,4*ml 
dum ( j ) =dum ( j -2 *ml ) 

17 continue 
cntu=cntu-l 

number the x-directed currents for the lower antenna plate 


20 


do 20 j=i,ml 
j j=int ( ( j-l)/ncl)+l 
ii=j-(j j“i)*ncl 
if (ii.eq.ncl) then 
dum2( j )=0 
goto 20 

if^t(dum( j ) .eq.0) .or . (dum(j+l) .eq.0)) then 
dum2( j )=0 

else 

dum2( j)=cnt 
cnt=cnt+l 
endif 
continue 


number the x-directed currents for the upper antenna plate 


do 23 j=ml+l ,2*ml 
dum2 ( j ) =0 

m2=int ( ( j -ml-1) /ncl) +1 
j j=j-(2*m2-l)*ncl 
if (dum2( j j) .ne . (0) ) then 
dum2( j )=cnt 
cnt=cnt+l 
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23 


endil 

continue 


number the z-directed currents 


for the lower antenna plate 


do 26 j=2*ml+l ,3+ml 
dum2( j )=0 

j j=int (( j-2*ml-l)/ncl)+l 
if (jj.eq.ncw) goto 26 

if ( (dum( j ) .eq.O) .or . (dum(j+ncl) .eq.O) ) goto 26 
dum2( j )=cnt 
cnt=cnt+l 
26 continue 

number the z-directed currents for the upper antenna plate 


do 27 i=3*ml+l,4*ml 
dum2( j )=0 

j j=int( ( j-3*ml-l)/ncl)+l 
if (jj.eq.ncw) goto 27 

if ((dum(j) .eq.O) .or .(dum(j+ncl) .eq.O)) goto 27 
dum2( j )=cnt 
cnt=cnt+l 
27 continue 
cnt = cnt -1 

cnt is the number of elements 


29 


e lnum = cnt 

if (flgms.eq.l) then 

hf=lf/nf 

else 

wq=0 . 0 


hf =0 .0 
If =0.0 
nf=i 
endif 

do 29 j =1 ,nf 
dum2(4*ml+ j ) =elnum+ j 


continue 
elnum= e lnum+nf 
n-elnum 


elnumd=0 

mdl=0 

md2=0 

if (flgair.eq.l) goto 126 


calculate the number of unknowns 
for the dielectric part of the antenna 


widd=2 .0+wdth+wf 

mdl=nld*nwd 

md2=mdl*nhd 

ldx=lend/ (nld) 

ldy=hghd/ (nhd) 

ldz=widd/(nwd) 

elnumd=3*md2 

126 continue 

n= elnum+e lnumd 


call the controlling routine — mom 


call mom( lngth , wdth , flang f lez , lex , wf ,hu , wu , xsO , wsc , lsc ,ncl , 

+ ncw,ml ,dum,dnm2 ,elnum,n,er ,mi,lend, widd,hghd,nld, 

+ nhd , nwd , ldx , ldy , ldz , elnumd , mdl ,md2 , f req , xdO , 

+ f lgair ,f lgdip,flgms ,wq,hf ,nf ) 

end 
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subroutine decide (j , lngth,wdth,wf ,ma, expose ,b,w »h,n ,ncw , 

+ dum,hu,cntu,li) 

real lngth, wdth,wf ,ma,expo , a,b, w ,h, zantl ,xcl ,xc2 , 

+ zant2,zcl ,zc2,hu,li 

integer j , j j ,ii,n,ncw,dum,cntu 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine decide il the segment is inside the geometry, if it c 

c is, it calculates the height and length of it. c 

c z-directed current source £ 

c c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

j j=int (( j-l)/n)+l 

ii=j-(j 

xcl=(ii)*w 

zc i *- ( (new- j j ) *h+wf /2 . 0 ) 
zc2=zcl-h 

il (xcl.le.li) then 
zantl=-wf /2.0 

zant l=-(a*( (wf /2 . 0) *exp(expo*xcl) )+ 

+ b* ( wf /2 . 0+ma* (xcl-li) ) ) 

endif 

if (zantl .ge.zcl) dum=l 
xc2=(ii“l) # w 
if (xc2.1e.li) then 
zant2=-wf/2. 0 

else 

zant2=- (a* ( (wf /2 . 0 ) *axp( axpo*xcl ) ) + 

+ b*(wf/2.0+ma« , (xc2-li))) 

andif 

if (zant2.lt.zc2) dum=0 

if ((zant2.gt.zc2) .and. (zant2 .la.zcl) ) than 

if (zantl. ga.zc2) than 

hu=( (zant2-zc2)+(zantl-zc2) )/2.0 

dun*2 

else 

hu=((zant2-zc2)+(zantl-zc2))/2.0 

if (hu.lt. (— h) ) then 

write(6 ,*) 1 Increase ncl or decrease new* 

goto 776 

endif 

if (hu. le .(0.0)) then 

dum=0 

else 

dum=2 

endif 

endif 

endif . v . 

if ((zant2. ge.zcl) .and. (zantl. It. zcl)) then 

if ( zantl. It. zc2) then 

write (6,*) * increase ncl or decrease new* 
goto 776 

hu=((zant2-zcl)+(zantl-zcl))/2.0 

if (hu.ge. (0.0)) then 

dum=l 

hu=h 

else 

dum=2 

hu=h+hu 

endif 

endif 

775 continue , 

if ((hu.aq.h) .and. (dum.aq.2)) dtun=l 

return 

end 
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subroutine mom ( lngth, wdth.f lang , lez , lcx,d ,hu,wu,xsO ,asc ,lsc , 

+ ncl,ncu,k,du]a,dnm2,elnuiBc f n,«r,iiii, 

+ land, widd, hghd, nld, nhd,nsd, lx, ly ,lz,elnund, 

+ mdl , md2 , 1 req , xdO , f lgair ,flgdip , f lgms ,wq,hl ,nl) 

real xsO, lngth, wdth, Hang, lez, lex, wf ,wu(2000) ,xdO, 

+ wsc,lsc,hu(2000) ,ar,wq,hl, 

+ lsnd,widd,hghd,lx,ly ,lz,frsq 

complex vv(n) ,imp(n,n) ,cr(n) 

integer i,ncw,ncl,k,dum2(2000) ,duni(2000) ,elnumc,n,mi, 

+ nld ,nhd ,nwd , slnumd ,mdl ,md2,nu,f lgair, flgdip, 

+ f lgms ,nl 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine mom calls the necessary routines in the program c 

c and outputs the analysis results ® 

c r 

c called by: struc J 

c calls : filvlt, filvltn, filcc, filed, fildc, fildd, cerad c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

if (flgdip . eq. 1) then 
do 11 j=i,n 
vv(j)=0.0 
11 continue 

vv(elnumc)=l .0 
else 

if (flgms.eq.O) then 

c if current element at apex call filvlt 

C call filvlt (dum ,dum2 ,3ngth, wdth, hghd ,k ,ncw ,nd , elnumc ,n, lez , 

+ lcx,wf ,vv,wu,hn, xs 0 ,wsc, lac, elnumd, mdl, md2, lx, 

+ ly ,lz,xd0,nld) 

else 

c if microstripline feed call filvltn 

C call f ilvltn(dum , dum2 , lngth , wdth , hghd , k ,ncw ,ncl , elnumc ,n , lez , 

, * 1 n - mlfinaul mA'i mH O It 


endif 

endif 


lcx,wf , vv ,wu,hu,xs0 , wsc ,lsc , elnumd, mdl ,md2 ,lx , 
ly ,lz,xdO,nld,wq,hf ,nf ) 


fill the conductor-conductor interactions of the imp. matrix 

call f ilec (dum , dum2 , lngth , wdth ,k ,ncw ,ncl , elnumc , lez , 

+ lcx,wf ,irap,wu,hu,xsO,wsc,lsc,n,hghd,er,mi, 

+ wq,hf,nf) 

if (f lgair .eq.l) goto 76 

fill the conductor-dielectric interactions of the imp. matrix 

call filed ( lex , lez , lx , ly , lz , imp , dum , dum2 , k ,nd ,ncw , mdl , 

+ md2 , nld ,nwd , hghd , wdth , wf , elnumc , elnumd, 

+ wu,hu,xsO,wsc,lsc,n,mi,xdO,wq,hf ,nf ) 

fill the dielectric-conductor interactions of the imp. matrix 

call f ildc ( lex , lc z , lx , ly , lz , imp , dum , dum2 , k , nc 1 ,ncw , mdl , 

+ md2 , nld, nwd f hghd, wdth, wf , elnumc, elnumd, 

+ wu,hu,xs0 ,wsc ,lsc ,n,mi ,xd0 ,wq,hf ,nf ) 

fill the dielectric-dielectric interactions of the imp. matrix 

call fildd(lx,ly,lz,irap,nld,nhd,nwd, 

+ mdl , md2,er,f req, elnumc ,n) 

76 continue 
nu=n 
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do 82 i=l,nu 
cr(i)-0 .0 
82 continue 

solve the matrix equation using CG method 
call cgrad(imp,w,n,im,cr) 
output the analysis results 


111 


344 


write(6,*) f lgair ,f lgdip ,f lgras 

write (6 , *) ncl ,ncw , lngth , wdth , wf. ,k ,elnumc 

write (6 , *) xsO ,wsc ,lsc ,xd0 ,mi ,flang 

write (6 ,*) elnumd,mdl ,md 2 ,nld,nhd,nwd,hghd 

write (6,*) lx,ly ,lz,ireq,er 

write(6 ,*) wq,hi,nl 

write(6 ,*) dum2 ,dum,wu,hu 

write(6,*) cr 

continue 

return 

end 
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aubroutine 1 ilvlt (dun , dum2 , lngth , wdth , t ,mcl ,ncw ,ncl , •lmunc , 

+ n,lcz,lcx,wi ,vv,wu,hu,xsO,wBC,lsc,elnumcd,mdl , 

+ md2,lx,ly,lz,xd0,nld) 

real lngth, wdth ,wf ,kwi , lex , lex ,pi ,kxeO , wl .hi , 

+ wu(2000),hu(2000),il,i2,xBO, 

+ wbc , lsc ,t ,kt ,lx,ly ,lz,xdO,d,hh,l 

complex vv(n) ,zl2,z, Ex, Ey,Ez # . 

integer mcl,ncw,ncl,xl,xu,yl,yu,ii,jj ,i,dum2(2000), 

+ e lnunc , dum ( 2000 ) , jp , ip ,n , mdi , md2 , e lnumcd , it , ih , 

+ iw,il,nld,j,jxl,jxu,jyl,jyu 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Subroutine filvlt computes voltage vector ior infinitesimal c 
z-directed current source 


c 


c 


c 

c 

c 

c 


c 

c 


c 


called by: mom 


cccccccc«ccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


pi=atan(l ,0)+4.0 

kwf=2.0*pi*wf 

kt=2.0*pi*t 

do 10 j=l,4*mcl+l 

if (dum2(j) .eq.O) goto 10 

vv(dum2( j))“0.0 

1x1=0 

jru=0 

jyl=0 

j yu=0 

determine the location of the patch 
if ((j.ge.O).and.(j.le.mcl)) jxl=l 
if ((j.gt.mcl).and.(j.le.(2*mcl))) jxn=l 
if ((j-gte(2*mcl)).and. (j.le.(3*mcl))) jyl-1 
if ((j .gt • (3*mcl)) .and. (j .le. (4*mcl))) jyu=l 
zl2=0 . 0 

if (jxl.eq.l) then . _ . 

if x-current in the lower antenna plate calculate 
the z field of x directed conductor current to find the 
voltage element 

j j=int((j-l)/ncl)+l 

hl=hu(j+l)*2.0*pi 

wl=lcx*pi 

d= (xsO- ( j - ( j j -1 ) *ncl)*lcx+lcx/2 . 0) *2 . 0*pi 

l=(wdth+wf /2 . 0- ( j j -1 ) *lcz) *2 . 0*pi 
il=0 .0 

call zcdxz(d,hh,l,wl ,hl,il,i2,z) 

zl2=zl2+z 

il=1.0 

i2=0.0 „ 

d=d-lcx*2.0*pi 

call zcdxz(d,hh,l,wl,hl,il,i2,z) 

zl2=z!2+z 

vv(dum2( j ) )=zl2*kwf 
endif 

if (jxu.eq.l) then 
use symmetry 

j j=int (( j-mcl-l)/ncl)+l 
jp=j-(2*jj-l)*ucl 
vv(dum2( j))=-vv(dum2(jp)) 
endif 
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c 


c 


il (j .eq. (4*mcl+l)) then 

for the short -circuit calculate z field of z current 
wl=wsc*2.0*pi 
hl=lsc*2.0*pi 
d=(xs0-wsc)*2.0*pi 


hh=kt , 

l=lsc*2.0*pi 

il=0.0 

call zcdzz(d,hh,l,wl ,hl ,il,i2,z) 

zl2=zl2+z 

il=l .0 

12 = 0.0 

call zcdzz(d,hh,l,wl,hl,il,i2,z) 

zl2=zl2+z , 

vv(dun2( j ) )=zl2*kwf 
endif 


if ( jyl.eq.i) then 

il ^-current in the lower antenna plate calculate 
the z field of z directed conductor current to find the 
voltage element 


c 


c 


c 

c 

c 


c 


c 


jj=int((j-2*mcl-l)/ncl)+l 

1p=1-2*mcl 

wl=lcx*pi 

hl=hu(jp)*2.0*pi „ ^ . 

d=(xe0-(jp-(jj-l)*ncl)*lcx+lcx/2.0)e2.0*pi 

wdth+wf /2 . 0- ( j j -1 )*lcz) *2 . 0*pi 

il=0 .0 

call zcdzz(d,hh,l,wl ,hl,il,i2,z) 

zl2=zl2+z 

il=l .0 

12 = 0.0 

l=l-hl 

hl=hu( jp+ncl)e2.0*pi 

call zcdzz(d,hh,l,wi ,hl,il,i2,z) 

zl2=zl2+z 

vv (dum2 ( j ) ) =zl2*kwf 
endif 

if (jyu.eq.l) then 
use symmetry for upper z-currente 
j j=int((j-3*mcl-l)/ncl)+l 
jp=j-2*j j*ncl 
vv(dun2( j ) )=vv(dum2( jp) ) 
endif 


10 continue 


continue with the dielectric region 
do 27 i=l,md2 

it=int((i-l)/md2) 
ih= int ( ( i- it *md2- 1 ) /mdl ) 
iw=int ( ( i-it *md2-ih*mdl- 1 ) /nld) 

il=i-it*md 2 -ih*mdl-iw*nld 
calculate the location of the dial. 
d=(xd 0 +(il)*lx-lx/ 2 . 0 -xs 0 )«' 2 . 0 *pi 
hh=-((ih) *ly+ly/2 . 0) *2 . 0*pi 
1= ( ( iw ) *lz+lz/2 . 0- ( wdth+wf/2 . 0 ) ) *2 . 0*pi 
calculate the field of the source at the center 
call Ef ld(Ex,Ey ,Ez ,d,l,hh,kwf ) 


current 


vv ( i+elnumc) =-Er 

v v ( i + e lnumc +md2 ) = -Ey 

vv(i+elnumc+2*md2)--Ez 
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27 continue 
return 
end 

c 

subroutine Efld(Ex,Ey ,Ez ,y ) 

real cl ,c2,wl ,y ,z,kt ,c6,h 
complex pl,Ex,Ey ,Ez,c3,c4 

c calculates the field of an infinitesimal current element 
c at the point x=y , y=h, z=z 
pl=(0. 0,1.0) 
cl=60.0*wf 

c2=sqrt(y**2+z**2+h**2) 

c3=cl/(c2**4)*(1.0-pl/c2) 

c4=pl*cl/(2 . 0* (c2+*3))*(l .0-(pl/ c2)-l .0/ (c2**2) ) 
Ex=(c3+c4)*y*z*cexp(-pl*c2) 
Ey=(c3+c4)*h*z+cexp(-pl*c2) 
Ez=(c3*z*z-c4*(y« , y+h*h))*cexp(-pl« , c2) 
c 

return 

end 
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subroutine lilvltn(diitt,duift2 ,liigth f wdth,t ,ncl t ncw f xicl ^lminc , 

+ n,lcz,lcx f wi ,vv,wu,hu,xsO,w»c,lsc,elnumcd,nidl , 

+ md2 jlXjly ,lx»xdO,nld,wq,hl ,nf) 

real lngth,wdth,wf ,kwf f lcx,lcz ,pi »kxsO ,wl ,hl , 

+ wu(2000) ,hu(2000) ,il , i2,xs0,wq,hf ,hf j , 

+ wee, lsc ,t ,kt ,lx,ly , lz,xdO f d,hh, 1 

complex vv(n) ,zl2 f z ,Ex,Ey ,Ez 

integer mcl > ncw > ncl f xl,xu,yl,yu,ii > j j ,i,dum2(2000) , 

+ elnumc , dum ( 2000 ) , jp , ip ,n , mdl , md2 , elnumcd , it , ill » 

+ iw,il t nld, j , jxl, jxu, jyl, j 3 ru,nf , jll,kj 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Subroutine filvltn computes voltage vector for infinitesimal c 
y-current source located at feed point of microstripline c 

called by: mom ® 

calls: Efldn, zcdxy , zcdzy _ „ _ ® 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

pi=atan(l .0)*4.0 

kwf=2.0*pi*wf 

kt=2.0*pi*t 

do 10 j=l f 4*mcl+nf 

if (dum2(j) .eq.O) goto 10 

vv(dum2(j))=0.0 

ixl=0 

jxu=0 

jyl=0 

jyu=0 

jf 1=0 

c determine the location of the patch 
if ((j .ge.0) .and. (j .le.mcl)) jxl=l 
if ((j.gt.mcl).and.(j.le.(2*mcl))) jxu=l 
if ((j.gt.(2emcl)).and.(j.le.(3*mcl))) jyl-1 
if ((j-gt.(3*mcl)).and.(j.le.(4*mcl))) jyu=l 
if ( ( j .gt . (4*mcl+l) ) .and. (j .le. (4*mcl+nf) )) jfl-1 
zl2=0 .0 

if (jxl.eq.l) then 

c if x-current in the lower antenna plate calculate 
c the y field of x directed conductor current to find the 
c voltage element 

j j=int (( j-l)/ncl)+l 

hl=hu(j+l)*2.0*pi 

wl=lcx*pi 

d= (xsO- ( j - ( j j -1 )*ncl) *lcx+lcx/2 . 0) *2 . 0*pi 
hh=kt/2 .0 

l=“(jj-l)*lcz*2.0^pi 

il=0 .0 
i2=l . 0 

call zcdxy(d,hh,l»wl»hl,il>i2,z) 

zl2=zl2+z 

il=l .0 

i2=0,0 

d=d-lcx*2.0*pi 

call zcdxy(d,hh,l,wl,hl,il*i2,z) 

zl2=zl2+z 

vv(dum2( j) )=zl2*kt 

endif 

c 

if (jxu.eq.l) then 

c if x-current in the upper antenna plate calculate 
c the y field of x directed conductor current to find the 
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c 


c 


c 


c 

c 

c 

c 

c 

c 


c 


voltage element, no symmetry in this case 
j j=int( ( j-mcl-l)/ncl)+l 
jp=j-(2*jj-l)*ncl 
kj=j-mcl-(jj-l)*ncl 
hl=hu(jp+l)*2.0*pi 
wl=lcx*pi 

1 =- ( j j *lcz+wdth+wf -hu( jp+ 1 ) ) *2 . °*pi 
d=(x80-((kj-l)+0.50)*lcx)*2.0*pi 
hh=kt/2 .0 
il=0.0 

call zcdxy(d,hh,l,wl,hl,il,i2,z) 
zl2=zl2+z 
11 = 1.0 

i2=0.0 ^ , 

d=d-lcx*2.0*pi 

call zcdxy(d,hh,l,wl,hl,il,i2,z) 

zl2=zl2+z 

vv(dum2( j ) )=zl2*kt 

endif 


if (1 .eq. (4*mcl+l)) then 

for the ahort-circuit calculate y field of z current 
wl=wec*2.0*pi 
hl=lsc*2.0*pi 
d=(xs0-w8c)*2.0*pi 
hh=kt/2.0 

1=- ( wdth+wf /2 . 0-l» c ) *2 . 0*pi 
il=0.0 

call zcdzy(d,hh,l,wl ,hl,il,i2,z) 

zl2=zl2+z 

il=l .0 

12 = 0.0 

call zcdzy(d,hh,l,wl,hl,il,i2,z) 
zl2=zl2+z x 
vv(dum2( j ) )=zl2*kt 
endif 


if (jyl.eq.l) then 

if z— current in the lower antenna plate calculate 
the y field of z directed conductor current to find the 
voltage element 

j j =int ( ( j -2+mcl-l ) /ncl) +1 

jp=j-2*mcl 

wl=lcx*pi 

hl=hu( jp)*2.0*pi 

d=(x« 0 -(jp-(jj-l)*ncl)*lcx+lcx/ 2 . 0 )* 2 . 0 *pi 

hh=kt/2.0 

l=-(jj-l)* 1 cz+2.°*pi 

il=0.0 

call zcdzy(d,hh,l,wl,hl,il,i2,z) 
zl2=zl2+z 
11 = 1.0 
12 = 0.0 
l=l-hl 

hl=hu( jp+ncl)*2.0*pi 

call zcdzy(d,hh,l,wl,hl,il,i2,z) 

zl2=zl2+z 

vv(dum2( j ) )=zl2*kt 
endif 


if (jyu.eq.l) then 


104 


on fl oo 


c 

c 

c 

c 

c 


c 


if z-current in the lower antenna plate calculate 
the y field of z directed conductor current to find the 
voltage element , no symmetry in this case 

j j=int((j-3*mcl-l)/ncl)+l 

kj=j-3*mcl-(jj-l)*ncl 

jp=j-(2*jj- 1 )*ncl-2*mcl 

wl=lcx*pi 

hl=hu(jp)*2.0*pi 

d= (xsO- ( (kj -1 ) +0 . 60) *lcx) *2 . 0*pi 

bh=kt/2.0 

1 =- ( j j f icz+wdth+wf -hu( jp) )*2 . 0*pi 
il=0.0 

call zcdzy(d,hh,l,wi,hl,il,i2,z) 

zl2=zl2+z 

il=l .0 

i2=0.0 

l=l-hl 

hi=hu( jp-nd)*2.0*pi 

call zcdzy(d,hh,l,"i,hl,il,i2,z) 

zl2=zl2+z 

vv(dum2( j ) )=zl2fkt 
endif 


if (jfl.eq.l) then 

if z-current on the microstripline calculate 

the y field of z directed conductor current to find the 

voltage element 


c 

c 

c 


c 


c 


j j=j-4*mcl-l 
Mj = (jj-l)*hf 
wl=wq*pi 
hl=hff2.0*pi 
d=0.0 

hh=-kt/2 . 0 
l=-hf j*2.0*pi 
il=0 .0 

call zcdzy(d,hh,l. wl,hl,il, i2,z) 

zl2=zl2+z 

il«1.0 

i - = °hl 

call zcdzy(d,hh,l,*l»W.i 1 » i2 » 2: ) 
zl2=zl2+z 

vv(dum2( j ) )=zl2*kt 
endif 


10 continue 


continue with the dielectric region 
do 27 i=i ,md2 
it=int((i-l)/md2) 
ih=int ( (i-it*md2-l ) /mdl ) 
iw=int ( ( i - it fmd2-ih*mdl - 1 ) /nld) 
il=i-itfmd 2 -ihfmdl-iw*nld 
calculate the location of the dial. 
d= ( xd0+ ( il) *lx-lx/2 . 0-xs0) *2 . 0*pi 


current 


hh=0 .0 

1= (iwf lz+lz/2 . 0)f 2 . Ofpi 

calculate the field of the source at the center 
call Efldn(Ex,Ey,Ez,d,l.hh,kt) 
vv(i+elnumc)=-Ex 
vv(i+elnumc+md2)=-Ey 
vv ( i+eluumc+2f md2 ) =— Ez 
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27 continue 
return 
end 

subroutine Ef ldn(Ex ,Ey ,Ez ,x ,z ,y ,kt ) 
real cl,kt ,x,y ,z,cx,cy f cz,r 

complex pl,Ex,Ey,Ez , 

c calculates the field of an infinitesimal y-current element 
c at the point x=x, y=y , z=z 
pl=(0. 0,1.0) 
cl=30.0*kt 

r=sqrt(x**2+y**2+z**2) 

cx=x/r 

cy=y/r 

cz =z/ r 

Ex=-pl*ci*cexp(-pl*r)*cx*cy*(-1.0+3.0+pl/r* , (1.0-pl/r))/r 

Ey=(l . 0-cy*+2+pl/r* ( 1 . 0-pi/r ) * (3 . 0*cy**2-l ) ) /r 
Ey=-pl*cl*cexp(-pl*r)*Ey 

Ez=-pH , cH , cexp(-pl*r)*cz*cy*(-1.0+3.0*pl/r*(i.0-pl/r))/r 

return 

end 
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subroutine f ilc c ( duin , dum2 , lngth. , wdth , ml ,ncw ,ncl ,elnum, 

+ lcz ,lcx ,wf ,z ,mi,hu,xsO,esc ,lsc ,n,t , 

+ er,mi,wq,hf ,nf) 

real lngth, wdth, ef , lex ,eu(2000) ,hu(2000) ,wsc,lsc, 

+ lcz , wl ,hi , w2 ,h,2 ,dl ,hhl ,d,hh, ill »i2i ,ii2 ,122 ,xsO , 

+ t ,tl ,er ,pi ,kt ,kwl ,khl ,kw2 ,kh2 ,kwf ,hf ,wq, 

+ hf j ,hfi,hll,h2i,hl2,h22,wl2,w22, 

+ xsl,xs2,l,kb 

complex z(n,n) ,zl2,zs,pl , . ... , 

integer n,ii, j j ,ki,kj ,ncl,ncw, j ,i » jxl, jxu, jyl, jyu,fff ,mi, 

+ ixl,ixu,iyl,iyu,ml,aj ,ai,p,q,jfl,ifl,nf, 

+ dum(2000) ,dum2(2000) ,elnum, jp,ip,ma, 

+ mb, m, fig 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine filcc computes the conductor-conductor c 

c interactions of the impedance matrix (submatrix A) c 

c c 

c called by: mom J: 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c do 30 j=l ,4*ml+nf 
do 30 i=l,4*ml+nf 

if ((dum2(j) .eq. (0)) .or . (dum2(i) .eq. (0))) goto 30 
ilf=l 

c initialize 
jxl=0 
jxu=0 
jyl=0 
jyu=0 
ixl=0 
ixu=0 
iyl=0 
iyu=0 
jfl=0 
if 1=0 
zl2=0.0 

c determine the location of the conductor currents 
if ((j.ge.O).and.(j.le.ml)) jxl=l 
if ((j .gt.ml) .and.(j .le. (2*ml))) jxu=l 
if ( ( j *gt • (2*ml)) .and. (j .le . (3*ml) )) jyl=l 
if ( ( j *gt • (3*ml)) .and. ( j .le . (4*ml) )) jyu=l 
if ((i.ge.0) .and. (i.le.ml)) ixl=l 
if ((i. gt.ml). and. (i.le. (2*ml))) ixu=l 
if ((i.gt. (2*ml)) .and. (i.le. (3*ml))) iyl=l 
if ((i.gt. (3*mi)) .and. (i.le. (4*ml))) iyu=i 
if ((j.gt.(4*ml+l)).and.(j.le.(4*ml+nf))) jfl=l 
if ((i.gt . (4*ml+l)) .and. (i.le. (4*ml+nf ))) ifl=l 

C if ((jxl.eq.l) .and. (i.eq. (4*ml+l))) then 
c calculate interaction between lover plate x-directed 
c conductor current and short-circuit or receiving diode 
j j=int(( j-l)/ncl)+l 
lcj=j-C j j-D^xicl 
wl=wsc 
hll=lsc 
h21=hll 
wl2=lcx/2.0 
w22=wl2 
h2=hu( j+1) 

hh=- (wdth- ( j j -1 )*lcz+wf /2 . 0-lsc) 
d= ( (k j -1 ) +0 . 60) *lcx-wsc 
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c 


c 

c 


c 

c 

c 


c 


c 

c 


c 

c 

c 


call ortot(d,hh,wl ,hll ,h21 ,wl2,w22,h2 ,zl2) 

z(dum2(j) ,dum2(i))=zl2 

radii 

ii ( ( jxu. eq. 1) . and. (i . eq. (4*ml+l) ) ) then 
use sy mm etry lor upper x-dir acted conductor currents and 
short-circuit or receiving diode interaction 
j j=int ( ( j-ml-l)/ncl)+l 
jp=j-(2*j j-l)*ncl 

z(dum2(j) ,dum2(i) )=-z(dum2( jp) ,dum2(i)) 
endif 


il ( ( jxl . eq. 1) . and. (ill .eq. 1) ) then 
calculate interaction between lower plate x-directed 
conductor current and micro stripline current 


j j=int(( j-l)/ncl)+l 

ii=i-4*ml-l 
hfi=(ii-l)*h 1 


wl=wq/2.0 

hll=hl 

h21=hf 


wl2=lcx/2 . 0 

w22=wl2 

h2=hu( j+1) 

hh=(j j-l)*lcz-hfi 

d=( (kj-l)+0.60)*lcx-xs0 

call orf tot (d,hh, -t , wl ,hll ,h21 ,w!2 ,w22 ,h2 t zi2) 
z(dum2(j) ,dum2(i))=zl2 


endif 


if ((jxu.eq.l) .and. (ifl.eq.l)) then 
calculate interaction between upper plate x-directed 
conductor current and microstripline current 
j j=int( (j-ml-l)/ncl)+l 
kj=j-ml-(j j~l)*ncl 
jp=j-(2*jj-l)*ncl 
ii=i-4*ml-l 
hfi=(ii-l)*hf 
wl=wq/2 .0 


wl2=lcx/2 .0 
w22=wl2 
h2=hu( jp+1) 

hh= j j *lcz+wdth+wf-hu( jp+1 ) -hi i 
d= ( (k j -1 ) +0 . 60) *lcx-xs0 

call orftot (d,hh, -t , wl ,hli ,h21 ,wi2 ,w22 ,h2 , zl2) 

z(dum2( j ) t dum2(i) )=zl2 

endif 


if ( ( jyl .eq. 1) .and. (i .eq. (4*ml+l) ) ) then 
calculate interaction between lower plate z-directed 
conductor current and short-circuit or receiving diode 
j j=int( ( j-2*ml-l)/ncl)+l 
kj=j-2*ml-(jj-l)*ncl 
jp=j-2*ml 


wl=wsc 
hll=lsc 
h21=lsc 
w2=wu( jp)/2. 0 
hl2=hu( jp) 
h22=hu( jp+ncl) 

hh=-(wdth-(j j-l)*lcz+wf/2.0-lsc) 
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c 


c 

c 


c 


c 

c 


c 

c 

c 


c 


c 

c 


d= ( (k j -i ) +0 . B0)*lcx-wsc 

call partot (d,hh, wl ,hl 1 ,h21 , w2 ,hl2 >h22 ,zl2) 

z(don2( j ) ,dnm2(i))=zl2 

endif 

it ((jyu.eq.l).and.(i.eq.(4*ml+l))) than 
use symmetry for upper z-directed conductor currents and 
short-circuit or receiving diode interaction 
j j=int( ( j-3+ml-l)/ncl)+l 
jp= j-2* j j*ncl 

z(dum2(j) ,dum2(i))=z(dum2(jp) f dum2(i)) 
endif 


if ((j.eq.(4*ml+l)).and.(ifl.eq.l)) then 
calculate interaction between micro stripline current 
and short-circuit or receiving diode 


ii=i-4*ml-l 
hfi=(ii-l)+hf 
w2=wq/2 . 0 


hl2=hf 

h22=hf 

W1=W8C 

hll=lsc 

h21=lsc 

hh*- ( wdth-hf i+wf /2 . 0-lsc) 


call parftot (d,hh,t , wl ,hll ,h21 ,w2 ,hl2 ,h22 ,zl2) 

z(dum2(j) ,dum2(i) )=zl2 

endif 


if ((jyl.eq.i) .and. (if l.eq.l) ) then 
calculate interaction between lower plate z-directed 
conductor current and microstripline current 


j j=int ( ( j-2*ml-l)/ncl)+l 

kj=j-2*ml-(j j-l)*ncl 

jp=i-2+ml 

ii=i-4*ml-l 

hfi=(ii-l)*hf 

wl=wq/2.0 

hll-hf 

h21=hf 

w2=wu( jp)/2.0 

hl2=hu( jp) 

h22=hu( jp+ncl) 

hh=(j j-l)*lcz-hfi 

d= ( (k j -1 ) +0 . 50) *lcx-xs0 

call parf tot (d,hh, -t ,wl ,hll ,h21 , w2 ,h!2 ,h22 ,zl2) 

z(dum2(j) ,dum2(i) )=z!2 

endif 


if ( ( jyu.eq. 1) .and. (if l.eq. 1) ) then 
calculate interaction between upper plate z-directed 
conductor current and microstripline current 
j j=int ( ( j-3+ml-l)/ncl)+l 
kj=j-3*ml-(jj-l)*ncl 
jp= j - (2+ j j -1 ) *ncl-2*ml 
ii=i-4*ml-l 
hf i=(ii-l)*hf 
wl=wq/2.0 
hll=hf 
h21=hf 

w2=wu( jp)/2.0 
hl2=hu( jp) 
h22=hu( jp-ncl) 

hh=j j*lcz+wdth+wf-hu(jp)-hfi 
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c 


c 


c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


c 


c 


d= ( (k 1 -1 ) +0 . BO) *lcx-xsO 

call parf tot(d,hh,-t ,wl ,hll f h21 ,w2 >hl2 »h22 , zl2) 

z(dum2( j ) ,dom2(i) )=z!2 

endif 


if ( ( jfl.eq. 1) .and. (ifl.eq.l)) than 
calculate interaction between micro stripline currents 
it (j.le.i) then 
jj=j-4*ml-l 

il = ((jj“«q. ii). and. (jj.gt.l)) then 
z(dum2( j) ,dnm2(i))=z(dum2(j-l) ,duai2(i-l)) 

elee 

Mj = (jj-l)*hl 

hli=(ii-l)*hl 

hh=hf i-hf j 

d=0 . 0 

wl=wq/2.0 

w2=nl 

hll=hf 

h21=hf 

hl2=hf 

call partot (d,hh, wl »hll »h21 *w2 f hl2 ,h22 ,zl2) 

z(dum2(j) ,dnm2(i) ) -zl2 

endil 

endif 

endif 


if ((jfl.eq. 1). and . ( i . It . j ) ) then 
use symmetry if i<j 

z(dum2(j) ,dum2(i) )=z(dum2(i) ,dum2(j)) 
endif 

if ( ( j *eq* (4*ml+l)) .and. (i .It . j)) then 
use symmetry if i<j 

z(dum2( j ) > dum2(i))=z(dum2(i) ,dum2(j)) 
endif 


if ((j *eq* (4*»1+1)) .end. (i.eq. j)) then 
calculate self interaction of short-circuit 
or receiving diode 


Wl=W8C 

hll=lsc 

h21=lsc 

w2=wsc 

hl2=lsc 

h22=lsc 

d=0 . 0 

call partot (d,hh, wl ,hll ,h21 ,w2 ,hl2 ,h22 ,zl2) 

z(dum2(j) ,dum2(i) )-zl2 

endif 


if (( jxl.eq.l). and. (ixl.eq.l)) then 
investigate interaction between lower plate x-directed 
antenna conductor currents 
j j=int ( ( j-l)/ncl)+l 
ii=int ( (i-l)/ncl)+l 
ki=i-(ii”l)*ncl 

check various possibilities of symmetry 
if (j.gt.i) then 

z(dtun2(j) ,dum2(i))=z(dnm2(i),dum2(j)) 

if"((dnm(j) .«q.2) .or . (dtun(j+l) .«q.2)) flg*0 
if ((dum(i) .«q.2) .or . (dnm(i+l) ..q.2)) flg=0 


if ((jj .gt.l) .and. (ii.gt .1)) th.n 
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c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


aj=j-ncl 

if ((dum 2 (aj) .«q. (0)) .or. (dom2(ai) .«q. (0))) flg=0 

if ((dum(aj) .eq.2) .or. (dum(aj+l) .aq.2) ) flg=0 

if ((dum(ai) .eq.2) .or. (dum(ai+i) .eq.2)) flg-0 

z(dum2( j ) ,dnm2(i) )=z(dum2(aj ) ,dum2(ai) ) 

alsa 


if ((jj .aq.l) .and. (j .gt.l)) than 

if (ki.lt . j) than 

aj^ki 

ai=i+j-ki 

alaa 


aj=j-l 

ai=i-l 

if d ((dum2(aj) .aq. (0)) .or . (dum2(ai) .aq. (0))) flg=0 
if ((dnm(aj) .aq.2) .or. (dum(aj+l) .aq.2)) flg=0 

if ((dum(ai) .eq.2) .or. (dum(ai+l) .eq.2)) flg=0 
z(dum2( j ) ,dum2(i) )=z(dum2(aj ) ,dam2(ai)) 


alsa 

flg=0 

andif 

andif 

andif 


if (flg.eq.O) than 
no symmetry 

calculata interaction batwaan lower plate x-directed 
antenna conductor currants 
wi=hu( j+l)/2.0 
hll=wu(j) 
h21=wu( j+1) 
w2=hu(i+i)/2 .0 
h!2~wu(i) 
h22=wu(i+l) 
d=(jj-ii)*lcz+wl-w2 
hh=-(j-ncl*(jj-ii)-i)*lcx-hl2+hll 
call partot (d,hh,wl ,hll ,h21 f w2 > hl2 > h22,zl2) 
z(dum2(j) ,dum2(i))=zl2 
andif 


andif 


if ( ( jxu.eq. 1) .and. (ixu.eq.l) ) than 
use symmatry for interaction batwaan upper plate x-directed 
antenna conductor currants 
j j=int(( j-ml-l)/ncl)+l 
aj=j-(2*jj-l)*ncl 
ii=int ( (i-ml-l)/ncl)+l 
ai=i-(2*ii-l)*ncl 

z(dum2(j) ,dum2(i))=z(dum2(aj ) t dnm2(ai)) 
andif 

if ((jxl. aq.l) .and. (ixu.eq.l)) than 
investigate interaction batwaan lower and upper plate 
x-directed antenna conductor currants 
j j=int((j-l)/ncl)+l 
ii=int ( ( i-ml-1 ) /ncl) +1 
ki=i-ml-(ii-l)*ncl 
ip=i-(2*ii-l)*ncl 

if ((dum(j) .aq.2) .or. (duin(j + l) .aq.2)) flg=0 

if ( (dum(i) .eq.2) .or . (dum(i+l) .eq.2) ) flg s 0 
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c 


c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


c 


check various possibilities of symmetry 
if ((jj .gt.l) .and.(ii.gt.l)) then 
aj=j-ncl 

if"((dum 2 (aj) .eq.(0)).or.(dum2(ai) .eq.(O))) flg-0 
if ((dum(aj) .eq.2) .or. (dum(aj+l) .eq.2)) flg=0 
if ( (dum(ai) . eq.2) .or . (dum(ai+l) . eq. 2) ) flg-0 
z ( dum 2 ( j ) , dum 2 ( i ) ) = z ( dum 2 ( a j ) , dum2 ( ai ) ) 

else 


if ((jj.eq.l).and.(j.gt.l)) then 

if (ki.lt .j) then 

aj=ki 

ai=i+j-ki 


else 


ai=i-l 

if d ((dum2(aj) .eq. (0) ) .or. (dum2(ai) .eq. (0))) flg-0 

if ( (dum(aj) .eq.2) .or . (dum(aj+l) .eq.2) ) flg=0 
if ( (dum(ai). eq.2). or. (dum(ai+l). eq.2)) flg*0 

z(dum2(j) f dum2(i) )-z(dum2(aj) f dum2(ai)) 

else 


f lg = 0 
endif 
endif 


if (flff.eq.O) then 

no symmetry 

calculate interaction between lower and upper plate 
x-directed antenna conductor currents 
wl=hu(j+l)/2.0 

hll=wu( j) 
h21=wu( j+1) 
w2=hu(ip+l)/2 .0 
hl2=wu(ip) 
h22=wu(ip+l) 

d= ( j j -ii-ncw-1 ) *lcz-wf +w2+wl 

hh=- ( j -ncl* ( j j -ii) -i+ml ) *lcx-hl2+hll 

call partot (d ,hh, wl ,hll ,h21 f w2 »hl2 >h22 , zl2) 

z(dum2(j) ,dum2(i) )=zl2 

endif 


endif 


if ((jxu.eq.l) .and. (ixl.eq.D) then 
use symmetry for interaction between upper plate x-directed 
antenna conductor currents with those of lower plate 
z(dum2(j) ,dnm2(i))=z(dum2(i) ,dum2(j)) 
endif 


if ((jyl.eq.l) .and. (iyl.«q.l)) then 
investigate interaction between lower plate z-directed 
antenna conductor currents 
ii=int((i-2*ml-l)/ncl)+i 
j j=int((j-2*ml-l)/ncl)+l 
ki=i- 2 *ml-(ii-l)*ncl 
kj=j- 2 *ml-(j j-l)*ncl 
jp=j-2*ml 
ip=i-2*mi 

check various possibilities of symmetry 
if (j.gt.i) then 
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ooo 


c 


c 


c 


c 

c 

c 

c 


c 


z(dvun2(j) ,dnm2(i))=z(dujn2(i) ,dum2(j)) 

else 

if ((dum(j) .eq.2) .or . (dum(j+ncl) .eq.2)) flg=0 
if ((dum(i) .eq.2) .or. (dum(i+ncl) .eq.2)) flg=0 


if ( ( j j *gt . 1) .and. (ii.gt . 1) ) then 
aj=j-ncl 

if ( (dum2(aj ) . eq. (0) ) . or . (dum2(ai) .eq. (0)) ) flg s 0 
if ( (dua(aj) .eq.2) .or. (dum(aj+ncl) .eq.2)) flg=0 
if ( (dum(ai) .eq.2) .or. (dum(ai+ncl) .eq.2)) flg=0 
z(dum2( j) ,dum2(i))=z(dum2(aj) ,dnm2(ai)) 

else 


if ((jj.eq.l).and.(kj.gt.l)) then 
if (ki.lt .kj ) then 
aj =ki+2*ml 
ai=i+kj-ki 

else 




if ((dum2(aj) .eq. (0)) .or . (dum2(ai) .eq. (0))) flg=0 
if ((dum(aj) .eq.2) .or. (dum(aj+ncl) .eq.2)) flg*0 
if ( (dum(ai) .eq.2) .or . (dum(ai+ncl) .eq.2)) flg s 0 
z(dum2(j) ,dum2(i))=z(dum2(aj) ,dum2(ai)) 


else 

flg=0 
end if 
endif 
endif 


if (flg.eq.O) then 
no symmetry 

calculate interaction between lower plate z-directed 
antenna conductor currents 
wl=wu( jp)/2.0 
hll=hu( jp) 
h21=hu( jp+ncl) 
w2=wu(ip)/2.0 
hl2=hu(ip) 
h22=hu(ip+ncl) 
d= (ki-k j ) +lcx-w2+wl 
hh=(ii-j j)*lcz 

call partot (d,hh,wl ,hli ,h21 ,w2 f hl2 ,h22 ,zl2) 

z(dum2(j) ,dum2(i))=zl2 

endif 

endif 


if ((jyl.eq.l) .and. (iyu.eq.l)) then 
c investigate interaction between lower and upper plate 
c z-directed antenna conductor currents 
jj=int((j-2*ml-l)/ncl)+l 
ii=int((i-3*ml-l)/ncl)+l 
ki=i-3*ml-(ii-l)*ncl 
kj=j-2*mi-(jj-l)*ncl 
jp=j-2*ml 

ip=i- ( 2+ii-l ) *ncl-2*ml 

if ((dum(j) .eq.2) .or. (dum(j+ncl) .eq.2)) flg=0 
if ((dum(i) .eq.2) .or . (dura(i+ncl) .eq.2)) flg=0 
if ((jj.gt.l).and.(ii.gt.l)) then 
c check various possibilities of symmetry 
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ooo o o ooo 


c 


c 

c 

c 

c 


c 


aj=j-ncl 

if ((dum2(aj) . eq. (0) ) .or . (dum2(ai) .eq. (0))) flg=0 
it ( (dum(aj ) .eq.2) .or . (dum(aj+ncl) .eq.2)) flg=0 
it ( (dum(ai) .aq.2) .or . (dum(ai+ncl) .aq.2)) flg=0 
z(dum2(j) ,dum2(i) )=z(dum2 (a j ) ,dum2(ai)) 

•lee 


if ((jj .eq.l) .and.(kj.gt.l)) than 
if (ki.lt.kj) then 
aj =ki+2+ml 
ai=i+kj-ki 

else 


ai=i-l 

i f ((dum2(aj) . eq. (0)) .or . (dum2(ai) .eq. (0))) flg=0 
it ( (dum(aj ) .eq.2) .or . (dum(aj+ncl) .eq.2)) flg=0 
it ((dum(ai) .eq.2) .or. (dum(ai+ncl) .eq.2)) flg=0 
z(dum2(j) ,dum2(i))*z(dum2(aj) ,dum2(ai)) 


else 

flg=0 

endif 

endif 


if (flg.eq.O) then 
no symmetry 

calculate interaction between lower and upper plate 
z-directed antenna conductor currents 
wl=wu( jp)/2.0 
hll=hu( jp) 
h21=hu( jp+ncl) 
w2=wu(ip)/2.0 
hl2=hu(ip) 
h22=hu(ip-ncl) 
d= (ki-kj ) *lcx-w2+wl 
hh=(ii+ncw+l-j j)*lcz+wf-hl2 
call partot (d,hh,wl r hll ,h21 ,w2,h!2 ,h22,zl2) 
z(dum2( j ) ,dum2(i))=zl2 
endif 


endif 


if (( jyu.eq.l) .and. (iyl.eq.l)) then 
use symmetry for interaction between upper plate 
and lower plate z-directed antenna conductor currents 
z(dum2( j ) ,dum2(i))=z(dum2(i) ,dum2(j)) 
endif 


if ((jxl.eq.l) .and. (iyl.eq.l)) then 
c investigate interaction between lower plate x-directed 
c and lower plate z-directed antenna conductor currents 
j j=int( (j-l)/ncl)+l 
ii=int((i-2*ml-l)/ncl)+l 
ki=i-2*ml-(ii-l)*ncl 
kj=j-<jj-l)*ncl 
ip=i-2+ml 

if ((dum(j) .eq.2) .or. (dum(j+l) .eq.2)) flg=0 
if ( (dum(i) .eq.2) .or . (dum(i+ncl) .eq.2) ) flg-0 
c check various possibilities of symmetry 
if (jj.gt.l) then 
if (ii.lt.jj) then 
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c 


c 


c 

c 

c 

c 


q=0 

ai=i+( jj-ii-l)*ncl 

else 

aj=j-ncl 

ai=i-ncl 

q=l 

if ((dtun2(aj) .aq. (0)) .or. (dum2(ai) .aq. (0))) flg=0 
if ((dun(aj) .aq.2) .or. (dum(aj+l) .aq.2)) flg=0 
if ( (dum(ai) .aq.2) .or . (dum(ai+ncl) .aq.2) ) flg=0 
if (q.aq.O) than 

z(dnn»2(j) ,dnm2(i))=-z(dum2(aj) ,dum2(ai)) 

else 

z(dum2( j) f dam2(i))=z(dum2(aj) ,dum2(ai); 

endif 

else 


if ((j j .aq.l) .and. (j .gt.l)) than 
if (j.la.ki) than 


ai=i-l 


q=0 

else 

aj=ki 

ai=i+( j-ki+1) 


q=l 

if ((dum2(aj) .aq. (0)) .or. (dum2(ai) .aq. (0))) flg=0 
if ((dum(aj) .aq.2) .or. (dnm(aj+l) .aq.2)) flg=0 
if ( (dum(ai) .aq.2) .or . (dum(ai+ncl) .aq.2)) flg®0 
if (q.aq.O) than 

z(dum2( j) ,duin2(i))=z(duin2(aj) ,dum2(ai)) 

z(dtin2( j) ,dnm2(i) )=-z(duin2(aj ) ,dmn2(ai)) 

endif 

else 


if ( ( j . eq. 1) . and. (ki .eq. 2) ) then 


if ( (dura2(aj) .eq. (0)) .or. (dum2(ai) .eq. (0))) flg=0 
if ( (dum(aj ) .eq.2) .or . (dum(aj+l) .eq.2) ) flg-0 
if ( (duxn(ai) .eq.2) .or . (dum(ai+ncl) .eq.2)) flg=0 
z(dum2( j ) ,dtm2(i))=-z(dum2(aj) ,dum2(ai)) 


else 

fig=o 

endif 

endif 

endif 


if (flg.eq.O) then 
no symmetry 

calculate interaction between lower plate x-directed 
and lower plate z-directed antenna conductor currents 
wl=wu(ip)/2.0 
hll=hu(ip) 
h21=hu(ip+ncl) 
wl2=wu( j )/2 . 0 
w22=wu(j+l)/2.0 
h2=hu( j+1) 
hh=(jj-ii)+lcz 
d= (k j -ki ) *lcx-wl2+wl 

call ortot (d,hh,wl ,hll f h21 ,w!2 ,w22,h2»z!2) 
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c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 

c 

c 


z(dum2( j ) ,dum2(i))=zl2 

endif 

endif 


if ( ( jxl.eq.l) .and. (iyu.eq. 1) ) then 
investigate interaction between lower plate x-directed 
and upper plate z-directed antenna conductor currents 
j j=int((j-l)/ncl)+l 
ii=int ( (i-3+ml-l)/ncl)+l 
ki=i-3*ml-(ii-l)*ncl 
kj=j-(jj“l)*ncl 
ip=i- ( 2*ii-l ) *ncl-2*ml 

if ( (dum( j ) .eq.2) .or. (dum(j+l) .eq.2) ) ilg=0 
if ( (dum(i) .eq.2) .or. (dum(i+ncl) .eq.2)) flg=0 
check various possibilities of symmetry 
if ((j j .gt .1) .and. (ii.gt.l)) then 
aj=j-ncl 

if ((dum2(aj) .eq. (0) ) .or. (dum2(ai) .eq. (0))) flg=0 
if ((dum(aj) .eq.2) .or. (dum(aj+l) .eq.2)) flg*0 
if ((dum(ai) .eq.2) .or. (dum(ai+ncl) .eq.2)) flg*0 
z(dum2( j ) ,dura2(i) )=z(dum2(aj ) v dnm2(ai) ) 

else 


if ((jj .«q.l) .and. (j .gt.l)) than 
if (j.la.ki) than 

ai=i-l 

q=0 

alaa 

aj=ki 

ai=i+(j-ki+l) 

q=l 

if C(dtun2(aj) .aq. (0)) .or. (dum2(ai) .aq. (0))) flg=0 
if ( (dum(aj ) . aq.2) .or. (dun>(aj+l) . aq.2) ) flg=0 
if ((dum(ai) .aq.2) .or. (dnm(ai+ncl) .aq.2)) flg=0 
if (q.aq.O) than 

z(dum2( j) ,dum2(i))=z(dnm2(aj) ,dum2(ai)) 

else 

z(dum2(j) ,dum2(i))=-z(dum2(aj) ,dum2(ai)) 

endif 

else 

if ( (k j .eq.l) .and. (ki. eq.2)) then 

if ((dun2(aj) .aq. (0)) .or. (dum2(ai) .aq. (0))) flg=0 

if ((dum(aj) .aq.2) .or. (duaCaj+1) .aq.2)) flg=0 

if ((duin(ai) .aq.2) .or. (dtun(ai+ncl) .aq.2)) flg=0 

z(dum2( j ) ,dnm2(i) ) =-z(dtun2(aj ) ,dnm2(ai)) 

else 

flg=0 

endif 

endif 

endif 


if (flg.eq.0) then 
no symmetry 

calculate interaction between lower plate x-directed 
and upper plate z-directed antenna conductor currents 
wl=wu(ip)/2.0 
hll=hu(ip) 
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h21=hu(ip-ncl) 
wl2=wu( j )/2.0 
w22=wu(j+l)/2.0 
h2=hu( j+1) 

hh=(j j-ii-ncw-l)*lcz-wf+hll 
d= (k j -ki) +lcx-wl2+wl 

call ortot (d,hh,wl ,hll ,h21 ,wl2 ,w22 ,h2 , z!2) 
z(dum2( j) ,dum2 (i))=zl2 
endif 

endlf 

if (( jyl.eq.l) .and. (ixl.eq.l)) than 
c use symmetry for interaction of upper plate z-directed 
c and lower plate x-directed currents (j>i) 
z(dmn2(j) , dum2(i) )=z(dum2(i) ,dum2(j)) 
endif 

if ((jyl.eq.l) .and. (ixu.eq.l)) then 
c use symmetry for interaction of lower plate z-directed 
c and upper plate x-directed currents (j>i) 
z(dum2( j ) ,dum2(i) )=z(dum2(i) ,dum2(j)) 
endif 

if ( ( jxu.eq. 1) .and. (iyl.eq. 1)) then 
c use symmetry for interaction of upper plate x-directed 
c and lower plate z-directed currents 
j j=int ( ( j-ml-l)/ncl)+l 
ii=int ( (i-2*ml-l)/ncl)+l 
ai=i+2*(ncw-ii)*ncl 
aj=j-(2*jj-l)*ncl 

z(dum2( j ) ,dnm2(i) )=-z(dum2(aj ) y dum2(ai) ) 
endif 

Q 

if ( (jxu.eq. 1) .and. (iyu.eq.l)) then 
c use symmetry for interaction of upper plate x-directed 
c and upper plate z-directed currents 
j j=int( ( j-ml-l)/ncl)+l 
ii=int ( (i-3*ml-l)/ncl)+l 
ai=i-2*ii*ncl 
aj=j-(2*j j-l)*ncl 

z(dum2(j) ,dum2(i) )=-z(dum2(aj) f dum2(ai)) 
endif 

if ( ( jyl . eq. 1) . and. (ixl . eq. 1) ) then 
c use symmetry for interaction of lower plate z-directed 
c and lower plate x-directed currents (j>i) 
z(dum2( j ) ,dum2(i) )=z(dum2(i) ,dum2( j ) ) 
endif 

it (( jyu.eq.l) .and. (ixl.eq.l)) then 
c use symmetry for interaction of upper plate z-directed 
c and lower plate x-directed currents (j>i) 
z(dum2(j) ,dum2(i))=z(dum2(i) ,dum2(j)) 
endif 

if ( ( jyu.eq. 1) .and. (ixu.eq. 1) ) then 
c use symmetry for interaction of upper plate z-directed 
c and upper plate x-directed currents (j>i) 
z(dum2( j ) ,dum2(i) )=z(dum2(i) ,dum2( j) ) 
endif 

(• 

if ((jyu.eq.l) .and. (iyu.eq.l) ) then 
c use symmetry for interaction of upper plate z-directed 
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c and upper plate z-directed current b 
j j=int((j-3*ml-l)/ncl)+l 
ii=int((i-3*ml-l)/ncl)+l 
j*ncl 

z(dum 2 (j) ,tom2(i))=z(dum2(aj) ,dum2(ai)) 

endif 

c 

30 continue 
return 
end 
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subroutine f ilcd(lcx,lcz,lx,ly ,lz ,imp,dum,dum2,mcl, 

+ ncl,ncw ,mdl ,md2 ,nld,nwd,hghd,wdth,wf ,elnumc, 

+ elnumd,wu,hu,xaO ,wsc ,lsc ,n,mi , xdO, wq,hf ,nf ) 

real wl ,hl ,d,hh,l,il,i2,lcx,lcz,lx,ly,lz,wu(2000) , 

+ wdth, wf ,hghd,lsc ,wsc ,xsO ,pjw ,pjh»wq, 

+ hf j ,hll,h21,hn(2000) ,pi,xdO,hf 

complex imp(n,n) ,zl2,z,temp 

integer dum(2000) ,dum2(2000) ,mcl ,ncl,ncw,mdl ,md2,nld, jxl, 

+ jxu, jyl, jyu, it ,ih,iw,il, j j ,aj ,i,j ,sym, 

+ jp,elnumc ,elnnmd»n,mi,nf , jfl, 

+ ip,ii,ai,nwd,nw 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine filed computes the conductor-dielectric c 

interactions of the impedance matrix (submatrix C) 


c 


c 


c 


c 

c 

c 

c 


called by: mom 

calls: zcdxx, zcdxy, zcdxz, zed zx, zcdzy, zcdzz 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


pi=atan(l .0)*4.0 
nw=nwd/2 
sym=l 


do 30 
do 30 


j=l ,4*mcl+nf 
[=1 , 3*rad2 
if (dum2( j ) .eq.O) goto 30 

initialize 

jxl-0 

jxu=0 

jyl=0 

jyn=o 

1fl=0 

it=0 

ih=0 

iw=0 

il=0 

determine the location of the conductor current 
if ( (j .ge.O) .and. (j .le.mci) ) jxl=l 
if ( (j -gt *mcl) .and. (j .le. (2*mcl))) jxu=l 
if (( j *gt . (2*mcl)) .and. ( j .le. (3*raci))) jyl=l 
if ((j .gt . (3*mcl)) .and. (j ,le, (4*mci))) jyu=l 
if ( ( j »gt . (4*mcl+l) ) .and. ( j . le . (4*mcl+nf ) ) ) jfl=l 
determine the location of the dielectric current 
it=int((i-i)/md2) 
ih=int ( ( i-it *md2- 1 ) /mdl ) 
iw=int ( (i-it*md2-ih+mdl-l)/nld) 
il=i-it*md2-ih*mdl-iw*iild 
z!2=0 .0 


if (jxl.eq.l) then 

calculate interaction between lower plate x-directed 
conductor current and dielectric currents if dielectric 
current is x,y,z directed call zcdxx, y,z reap. 

j j=int ( ( j-l)/ncl)+l 
hl=hu( j+l)*2.0*pi 
wl=lcx*pi 

d=( (il-0 ,60)*lx+xd0-( j-( j j-l)*ncl)*lcx+lcx/2 .0)*2 .0*pi 

hh= ( (ih+1 ) *ly-ly/2 . 0) *2 . 0*pi 

1=(( (iw+l)*lz-lz/2 ,0)-( j j-l)*lcz)+2.0*pi 

il=0 .0 

i2=1.0 

if (it. eq.O) call zcdxx (d,hh,l,wl ,hl ,il ,i2»z) 
if (it.eq.l) call zcdxy (d,hh,l,wl ,hl ,il ,i2,z) 
if (it.eq.2) call zcdxz(d,hh,l,wl ,hl ,il ,i2,z) 
z!2=z!2+z 
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c 


11 = 1.0 

12 = 0.0 

d=d-lcx*2.0*pi 

11 (it.eq.O) call zcdxx(d,hh,l,wl,hl,il,i2,z 
11 (it.eq.l) call zcdxy(d, hh,l,wl, hi ,11, 12, z 
11 (it.eq.2) call zcdxz(d,hh,l,wl ,hl ,il ,i2,z 
zl2=zl2+z , . . 

intp(i+elnumc ,dum2( j ) )=zl2 
end! 1 


) 

) 

) 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


11 (jxu.eq.l) then 

investigate interaction between upper plate x-directed 
conductor current and dielectric currents 
j j=int( ( j-mcl~l)/ncl)+l 
jp=j-(2*jj-l)*ncl 
11 ((iw+1) .gt .nw) then 
ai=i-(2*(iw+l-nw)-l)*nld 
else 

ai=i+ (2* (nw- (iw+1 ) ) +1) *nld 
endif 


11 (sym.eq.O) then 
no symmetry 

calculate interaction between upper plate x-directed 
conductor current and dielectric currents il dielectric 
current is x,y,z directed call zcdxx,y,z reap. 
wl=lcx*pi 

hl=hu(jp+l)*2.0*pi 

d= (il+lx-lx/2 . 0+xdO- ( j -mcl- ( j j -1 ) *ncl) *lcx+lcx/2 . 0) *2 . 0*pi 
hh=((ih+l)*ly-ly/2.0)*2.0+pi 

l=(((iw+l)*lz-lz/2.0)-((jj)*lcz+wdth+wl-hu(jp+l)))*2.0*pi 


il=0 .0 
i2=l .0 

il (it.eq.O) call zcdxx(d 
il (it.eq.l) call zcdxy(d 
il (it.eq.2) call zcdxz(d 
zl2=zl2+z 
11 = 1 .0 
i2=0 .0 

d=d-lcx*2 .0+pi 
il (it.eq.O) call zcdxx(d 
il (it.eq.l) call zcdxy(d 
il (it.eq.2) call zcdxz(d 
zl2=zl2+z 

imp(i+elnumc ,dum2( j) )=z!2 

else 

il (it.eq.O) imp(i+elnuinc 
il (it.eq.l) imp(i+elnumc 
il (it.eq.2) imp(i+elnumc 
endil 
endil 


,hh,l,wl ,hl ,il ,12 ,z) 
,hh,l,wl ,hl ,il ,12 ,z) 
,hh,l,wl,hl,il,i2,z) 


,hh,l,wl ,hl ,il ,i2,z) 
,hh,l,wl,hl,il,i2,z) 
,hh,l,wl ,hl ,11 ,12 ,z) 


, dum2 ( j ) ) =imp ( ai+elnumc , dum2 ( jp ) ) 

, dura 2 ( j ) ) =imp ( ai +elnumc , dum2 ( jp ) ) 
,dum2 ( j ) ) =- imp (ai+elnumc ,dum2( jp) ) 


il ( j .eq. (4+racl+l) ) then 

calculate interaction between short-circuit or receiving 
diode current and dielectric currents il dielectric 
current is x,y,z directed call zcdzx,y,z reap. 
wl=wsc+2.0*pi 
hl=lsc+2.0*pi 

d= ( il*lx-lx/2 . O+xdO-wsc ) *2 . 0*pi 

hh=((ih+l)+ly-ly/2.0)+2.0*pi 

1= ( (iw+1 ) +lz-lz/2 . 0- (wdth+wl/2 . 0) +lsc) *2 . 0+pi 

il=0.0 

il (it.eq.O) call zcdzx(d,hh,l,wl ,hl ,11 ,12 ,z) 
il (it.eq.l) call zcdzy(d,hh,l,wl ,hl ,il ,i2,z) 
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c 

c 

c 

c 


c 

c 

c 

c 


if (it.eq.2) call zcdzz(d,hh,l,wl ,hl ,il,12,z) 

zl2=z!2+z 

il-1.0 

i2=0.0 

l=l-lsc+2.0*pi 

if (it.eq.O) call zcdzx(d,hh,l,wl ,hl ,il ,12, z) 
if (it.eq.l) call zcdzy(d,hh,l.wl ,hl 41 42, 2 ) 
if (it.eq.2) call zcdzz(d,hh,l,wl ,hl , il ,i2 ,z) 
zl2=zl2+z 

imp(i+elnumc ,dum2( j) )=zl2 
endif 


if (jfl.eq.l) then 

calculate interaction between microstripline 
current and dielectric currents if dielectric 
current is x,y,z directed call zcdzx,y,z reap. 

wl=wq*pi 

hl=hf*2.0*pi 

jj=j-4*mcl-l 

Mj=(jj-l)*hf 

d= ( il*lx-lx/2 . 0+xdO-xsO) *2 . 0«*pi 
hh=- ( ( ih+1 ) *ly-ly/2 . 0) *2 . 0*pi 
1=( (iw+l)*lz-lz/2.0-hf j )*2.0*pi 
il=0.0 

if (it.eq.O) call zcdzx(d,hh,l,wl ,hl ,il ,i2,z) 
if (it.eq.l) call zcdzy(d,hh,l,wl f hl ,il »i2,z) 
if (it.eq.2) call zcdzz(d,hh,l ,hl ,il ,i2,z) 

zl2=zl2+z 
il-1.0 
i2=0 .0 

if (it.eq.O) call zcdzx(d,hh,l,wi ,hl ,il ,i2,z) 
if (it.eq.l) call zcdzy(d,hh,l,wl ,hl f il,i2,z) 
if (it.eq.2) call zcdzz(d,hh,l ,wl ,hl ,il ,i2 ,z) 

zl2=zl2+z , 

imp ( i+elnumc f dum2 ( j ) ) =zl2 

endif 


if (jyl.eq.l) then 

calculate interaction between lower plate x-directed 
conductor current and dielectric currents if dielectric 
current is x,y,z directed call zcdzx,y,z reap. 

j j =int ( ( j -2+mcl-l ) /ncl) +1 

jp=j-2*mcl 

wl=lcx*pi 

hl=hu( jp)*2 . 0+pi 

d= (il*lx-lx/2 . 0+xd0- ( jp- (jj -1 ) *ncl) *lcx+lcx/2 . 0) *2 . 0*pi 
hh=( (ih+l)*ly-ly/2 .0)*2 .0*pi 
1= ( ( iw+1 ) *lz-lz/2 . 0- ( j j -1 ) *lcz ) *2 . 0*pi 
11 = 0.0 

if (it.eq.O) call zcdzx(d,hh,l *wl f hl ,il,i2,z) 

if (it.eq.l) call zcdzy(d,hh,l,wl,hl,il,i2,z) 

if (it.eq.2) call zcdzz(d,hh,l»*l >hi »il >i2,z) 

zl2=zl2+z 

il-1.0 

i2=0 .0 

l=l-hl 

hl=hu( jp+ncl)*2.0*pi 

if (it.eq.O) call zcdzx(d,hh,l ,wl ,hl ,il »i2,z) 
if (it.eq.l) call zcdzy(d,hh, l,wl,hl,il,i2,z) 
if (it.eq.2) call zcdzz(d,hh,l,wl ,hl,il,i2,z) 
zl2=zl2+z 

imp ( i +elnumc , dum2 ( j ) ) =z 12 
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c 

c 

c 


c 

c 

c 


c 


endil 

invest igate^interaction between upper plate x-directed 
conductor current and dielectric currents 
j j=int( ( j- 3 *mcl-l)/ncl)+l 
jp=j-(2* j j-1) *ncl-2*mcl 
aj=j-2*jj*ncl 
if ((iw+1) .gt.nw) then 

ai=i- (2* (iw+l-nw) -1 ) ♦nld 
ai=i+( 2 *(nw-(iw+l))+l)*nld 

©ndif 

il (sym.eq.O) then 

calcSuti r Lteraction between upper plate 

conductor current and dielectric currents if dielectric 

current is x,y,z directed call zcdzx,y,z resp. 
wl=lcx*pi 

il=0.0 

il(it.eq.O) call zcdzx(d,hh,l,wl ,hl ,il ,i2»z) 
it (it.eq.l) call zcdzy (d,hh,l ,wl ,hl ,il ,12 ,z) 
it (it.eq.2) call zcdzz(d,hh,l,wl ,hl ,il ,i2,z) 

zl2=z!2+z 
il=l .0 
12=0.0 

l=l-hl ^ , 

hl=hu(jp-ncl)*2.0*pi . 

11 (it.eq.O) call zcdzx(d t hh,l,wl ,hl ,11 » i2 * z > 
it (it.eq.l) call zcdzy (d,hh,l ,wl »hl ,il,i2,z) 

11 (it.eq.2) call zcdzz(d,hh, 1 ,wl ,hl ,il »i2 ,z) 

zl2=zl2+z .. 

impd+elntunc ,dum2( j ) )=zl2 

il" (it . eq . 0) imp(i+elnumc ,dum2 ( j ) ) =-imp(ai+elinimc *dum2(aj ) ) 
11 (it.eq.l) imp ( i+elnumc ,dum2 ( j ) ) =-imp(ai+elnumc^nm2 ) ) 
11 (it.eq.2) imp (i+elnumc ,dum2(j ) )=irap(ai+elnumc , dum2 (aj )) 
endll 

•nH A 


30 continue 
return 
end 
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subrout in® t ildc ( lex , lex , lx , ly „ lz , imp , dum , dum2 , me i , 

+ nc 1 ,nev , mdl , md2 ,nld ,nwd f hghd , wdth , wi , elnumc , 

+ elnumd,wu,hu,xsO ,wsc ,1sc ,n,mi , xdO ,wq,hf ,nf ) 

real wl^l^hh.l.iij^lcx.lcz.lx.lyflz^^OOO) ,xdO, 
+ wdth,wf ,hghd,lsc ,wsc , xsO ,pjw ,pjh,wq,hi ,h* j , 

+ hll »h21 ,hu(2000) , 

+ pi ,klx,kly ,klz 

complex imp(n 9 n) ,zl2 ,z ,temp,maxz 

integer dum (2000) ,dum2(2000) ,mcl ,ncl 9 ncv ,mdl 9 md2 ,nld, jxl , 
+ jxu, jyl, jyu,it 9 ih 9 iw,il, j j ,aj ,i , j ,nw,nwd,ai,ii, 

+ jp , elnumc 9 elnumd 9 n 9 mi 9 sym, jf l,ni 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine iiled computeB the dielectric-conductor c 

interactions of the impedance matrix (submatrix B) 


c 


c 


c 


c 


c 

c 

c 

c 


c 


called by: mom 

calls: zdcxx, zdexy, zdcxz, zdczx, zdezy, zdezz 

xcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


pi=atan(l . 0)*4 .0 

klx=2.0*pi*lx 

kly=2.0*pi*ly 

klz=2.0*pi*lz 

nw=nwd/2 

sym=l 

do 30 j=l,4*mcl+ni 

do 30 i=l ,3*md2 

i t (dum2( j) .eq,0) goto 30 

initialize 

jxl=0 

jxu=0 

jyi~o 

jyu=0 

jfl=0 


determine the location of the conductor current 
if ((j .ge.O) .and. (j .le.mcl)) jxl=l 
if ((j.gt.mcl).and.(j.le.(2*mcl))) jxu=l 
if ( ( j .gt . ( 2 *mcl) ) .and. ( j .le. (3*mcl) ) ) jyl=l 
if (( j *gt • (3*mcl)) .and. ( j .le . (4*mcl) ) ) jyu=l 
if (( j .gt . (4*mcl+l) ) .and. ( j .le . (4*mcl+nf )) ) jfl=l 
determine the location of the dielectric current 
it=int((i-l)/md2) 
ih=int ( ( i-it*md2-l ) /mdl ) 
iw=int ( (i-it*md2-ih*mdl-l)/nld) 
il=i-it*md2-ih*mdl-iw*nld 
zl2=0 .0 

if (jxl.eq.l) then ^ . 

calculate interaction between lower plate x-directed 
conductor current and dielectric currents if dielectric 
current ii x,y,z directed call zdcxx,yiZ reep. 
j j=int(( j-l)/ncl)+l 
hl=hu( j+l)*2.0 l *pi 
wl=lcx*pi 

d=((il- 0 . 60 )*lx+xd 0 -(j-(jj-l)*ncl)*lcx+lcx/ 2 . 0 )* 2 . 0 *pi 
hh= ( (ih+l)*ly-ly/2 . 0)*2 . 0*pi 

l=(((iw+l)*lz-lz/2.0)-(jj-l)+lcz)*2.0*pi 
if (abe(l) .gt . (9.0*hl)) then 
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c 


c 

c 


c 

c 

c 

c 

c 


if (it.aq.O) zl2=-imp(i+alnuinc,d\jjn2(3))*klx 
if (it.aq.l) zl 2 =-imp(i+alnumc ,duin2(3 ) )*kly 
if (it .aq.2) zl 2 =-imp(i+elnumc,dTU« 2 (j))*klz 
else 
il=0.0 

if (it.aq.O) call zdcxx(klx,kly,klz,d,hh,l,wl,hl,il,i2,z) 
if (it.eq.l) call zdcxy (klx f kly »klz ,d,hh,l »wl >hl »il > i2 ,z) 

if (it . eq. 2) call zdcxz(klx ,kly f klz f d,hli t lfWl ,hl ,11 f 12 t z) 

z!2=z!2+z 
il=l .0 
i2=0 .0 

d=d-lcx*2.0*pi 

if (it.aq.O) call zdcxx(klx,kly ,klz,d,hh,l,wl ,hl ,il ,12 ,z) 
if (it.eq.l) call z&cxyiklx^lY f 'klz>& 9 hh,l 9 *l f h.l ,il ,±2 ,z) 
if (it.eq.2) call zdcxz(klx,kly »klz ,d,hh,l,wl ,hl ,il ,12 f z) 

zl2=z!2+z 

endif 

imp(dum2(j) ,i+elnumc)=zl2 
endif 


if (jxu.eq.l) then 

investigate interaction between upper plate x-directed 
conductor current and dielectric current* 
j j=int ( ( j-mcl-l)/ncl)+l 
jp=j-(2*jj-l)*mcl 
if ((iw+1) .gt.nw) then 
ai=i-(2*(iw+l-nw)-l)*nld 

else 

ai=i+ ( 2* (nw- ( iw+1 ) ) +1 ) *nld 
endif 


if (sym.eq.O) then 
no symmetry 

calculate interaction between upper plate x-directed 
conductor current and dielectric currents if dielectric 
current is x,y,z directed call zcdxx,y,z resp. 

wl=lcx*pi 

hl=hu( jp+l)*2.0*pi 

d= (il*lx-lx/2 . 0+xd0- ( j -mcl- ( j j -1 ) *ncl) *lcx+lcx/2 . 0) *2 . 0*pi 
hh=((ih+l)*ly-ly/2.0)*2.0*pi 

1= ( ( ( iw+1 ) *lz-lz/2 . 0 ) - ( j j *lcz+wdth+wf -hu( 3p+l) ) ) *2 . 0*pi 

if (abs(l) .gt.(9.0*hl)) than 

if (it.aq.O) zl2=-imp(i+alnumc > dum2(3)) ,,, klx 

if (it.aq.l) zl2=-inp(i+almiinc,duin2(3)) , ''kly 

if (it.aq.2) zl 2 =-imp(i+alntunc,dum 2 ( 3 )) , ' , klz 

else 

il=0 .0 

if (it.eq.O) call zdcxx(klx,kly ,klz,d t hh,l,wl,hl ,il »i2,z) 
if (it.aq.l) call zdcxyUlx.kly.klz.d.hh.l.wl.hl.il.^.z) 
if (it.aq.2) call zdcxz(klx,kly,klz,d,hh,l,wl,hl,il,i2,z) 
zl2=zl2+z 
11 = 1.0 
i2=0.0 

d=d-lcx*2 . 0*pi 

if (it.aq.O) call zdcxx(klx,kly,klz,d,hh,l,wl,hl,il,i2,z) 
if (it.aq.l) call zdcxy(klx,kly,klz,d,hh,l,si,hl,il,i2,z) 
if (it.aq.2) call zdcxz(klx,kly,klz,d,hh,l,wl,hl,il,i2,z) 

zl2=zl2+z 

endif 

if (it.aq.O) zl2=inp(dum2(3p) .ai+alnumc) 
if (it.aq.l) zl2=imp(dum2(3p) , ai+alnumc) 
if (it.aq.2) zl2=-imp(dum2(3p) ,ai+alnumc) 
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c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


endil 

imp(dum2( j ) ,i+elnumc)=zl2 
endil 

il (j .eq. (4*mcl+l)) then 

calculate interaction between short-circuit or receiving 
diode current and dielectric currents il dielectric 
current is x,y,z directed call zdczx,y,z resp. 
wl=wsc*2.0*pi 
hl=lsc*2.0*pi 

d= ( il*lx-lx/2 . O+xdO-wsc) *2 . 0*pi 
hh=((ih+l)*ly-ly/2.0)*2.0*pi 

1= ( ( (iw+1 )*lz-lz/2 . 0)- (wdth+wl /2 . 0)+lsc) *2 . 0*pi 
il (abs(d) .gt. (16.0*wl)) then 
il (it.eq.O) zl2=-imp(i+elnumc ,dum2( j ) )*klx 
il (it.eq.l) zl2=-imp(i+elnumc ,dum2( j) )*kly 
il (it.eq.2) zl2=-imp(i+elnumc ,duin2( j) )*klz 

else 

il=0 .0 

il (it.eq.O) call zdczx(klx ,kly ,klz ,d,hh,l ,wl ,hl ,il »i2,z) 
il (it.eq.l) call zdczy(klx,kly ,klz,d,hh,l,wi,hl ,il ii2,z) 
il (it.eq.2) call zdczz(klx > kly,klz,d > hh t l,wl > hl,il > i2,z) 

zl2=zl2+z 
il=l .0 
i2=0 .0 

il (it.eq.O) call zdczx(klx,kly f klz f d, hh,l»wl ,hl ,il ,i2 ,z) 
il (it.eq.l) call zdczy(klx,kly ,klz,d,hh,l»wl ,hl f il ,i2 ,z) 
il (it.eq.2) call zdczz(klx f kly fklz,d,hh,l ,wl *hl »il >12 »z) 

zl2=z!2+z 

endil 

imp(dum2( j ) ,i+elnumc)=zl2 
endil 


il (jll.eq.l) then 

calculate interaction between microstripline 
current and dielectric currents il dielectric 
current is x,y,z directed call zdczx,y,z resp. 

wl=wq*pi 
hl=hl*2.0*pi 
j j=j-4*mcl-l 
h*j=(jj-l)*hl 

d= ( il*lx-lx/2 . O+xdO-xsO) *2 . 0*pi 
hh=- ( (ih+l)*ly-ly/2 . 0) *2 . 0*pi 
1= ( ( iw+1 ) *lz-lz/2 . 0-hl j ) *2 . 0+pi 
il=0 .0 

il (it.eq.O) call zdczx(klx,kly,klz,d,hh,l>wlfkl ,il »i2,z) 
il (it.eq.l) call zdczy(klx,kly ,klz,d,hh,l 9 wl ,hl ,il ,i2,z) 
il (it.eq.2) call zdczz(klx,kly ,klz f d 9 hh,l,wl 9 hl,il ,i2,z) 

zl2=zl2+z 
il=l .0 
i2=0.0 

il (it.eq.O) call zdczx(klx,kly,klz,d,hh,l,wl,hi ,il .i2 f z) 
il (it.eq.l) call zdczy(klx ,kly ,klz,d,hh,l,wl ,hl ,ii,i2,z) 
il (it.eq.2) call zdczz(klx,kly f klz,d,hh,l 9 wl f hl ,il,i2,z) 
zl2=zl2+z 

imp(dnm2( j ) ,i+elnumc)=zl2 
endil 


il (jyl.eq.l) then 

calculate interaction between lower plate x-directed 
conductor current and dielectric currents il dielectric 
current is x,y,z directed call zdczx,y,z resp. 
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c 


c 

c 


c 

c 

c 

c 

c 


j j=int( (j-2*mcl-l)/ncl)+l 

jp=j-2*racl 

wi=lcx*pi 

hl=hu(jp)*2.0*pi 

d=(il*lx-lx/ 2 . 0 +xd 0 -(jp-(jj-l)*ncl)*lcx+lcx/ 2 . 0 )* 2 . 0 *pi 

hh= ( (ih+1 ) *ly-ly/2 . 0)*2 . 0*pi 

1=( ( (iw+1) *lz-lz/2 .0)-( j j-l)*lcz) *2 . 0*pi 

if (abs(d) .gt . (16 .0*wl) ) than 

if (it.eq.O) zl2=-irap(i+elnumc ,dum2( j ))*klx 

if (it.eq.l) zl2=-imp(i+elnunic ,dum2( j ) )*kly 

if (it.eq.2) zl2=-imp(i+elnumc ,dum2( j) )*klz 


else 

il^O.O 

if (it.eq.O) call zdczx(klx,kly f klz 9 d,hh,l,wl,hl 9 il t i2,z) 
if (it.eq.l) call zdczy(klx,kly ,klz,d,hh,l,wl,hl 9 il »i2»z) 
if (it.eq.2) call zdczz(klx,kly ,klz,d,hh,l,wl,hl ,il ,±2>z) 

zl2=zl2+z 
il=l .0 
i2=0.0 
l=l-hl 

hl=hu( jp+ncl)*2.0*pi 

if (it.eq.O) call zdczx(klx,kly,klz»d 9 hh,l,wl f hl , 11,12, z) 
if (it.eq.l) call zdczytklx^ly^klz^hhjl.wi^hl >i2 ,z) 
if (it.eq.2) call zdczz(klx,kly,klz,d,hh,l,el,hl ,il >12, z) 

zl2=zl2+z 

endif 

imp(dum2( j) ,i+elnumc)=zl2 
endif 


if ( j yu . eq . 1 ) then 

investigate interaction between upper plate x-directed 

conductor current and dielectric currents 
j j=int ( ( j-3+mcl-i)/ncl)+l 
jp=j - ( 2* j j -1 ) +ncl-2*mcl 
aj=j-2*jj+ncl 
if ((iw+1) .gt .nw) then 
ai=i-(2*(iw+l-nw)-l)*nld 
else 

ai=i+ ( 2* (nw- ( iw+1 ) ) +1 ) +nld 
endif 


if (sym.eq.O) then 

no symmetry 

calculate interaction between upper plate x-directed 
conductor current and dielectric currents if dielectric 
current is x,y,z directed call zdczx,y,z reap. 
wl=lcx*pi 
hi =hu(jp) *2.0*pi 

d= ( il+lx-lx/2 . O+xdO- ( j -3+racl- ( j j -1 ) *ncl)*lcx+lcx/2 . 0) *2 . 0*pi 
hh= ( ( ih+1 ) *ly-ly/2 . 0) *2 . 0*pi 

1= ( ( ( iw+1 ) *lz-lz/2 . 0)- ( ( j j ) *lcz+wdth+wf -hu( jp) ) ) *2 . 0*pi 
if (abs(d) .gt.(16.0*wl)) then 
if (it.eq.O) zl2=-imp(i+elnumc ,dum2( j ) )*klx 
if (it.eq.l) zl2=-imp(i+elnumc ,dum2( j ) )*kly 
if (it.eq.2) zl2=-imp(i+elnumc ,dum2( j ) )*klz 


il=0.0 
i2=l .0 
if (it.eq. 
if (it.eq. 
if (it.eq. 


call zdczx(klx,kly,klz,d,hh,l,wl,hl ,il ,i2,z) 
call zdczy ( klx , kly , klz ,d,hh,l,wl,hl,il,i2,z) 
call zdczz(klx,kly ,klz,d,hh,l,wl ,hl ,il,12,z) 


zl2=zl2+z 
il=l . 0 
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12 = 0.0 

l=l-hl 

hl=hu( jp-ncl)*2 .0*pi 

if (it.eq.O) call zdczx(klx f kly,klz,d,hh,l,wl,hl ,il,i2,z) 
if (it.eq.l) call zdczy(klx,kly ,klz,d,hh,l,wlfhi ,il ,i2,z) 
if (it.eq.2) call zdczz(klx,kly,klz,d f hh,l,wl,hl,il,i2,z) 

zl2=zl2+z 

•ndif 

if (it.eq.O) zl2=-irap(dujn2(aj ) ,ai+elnuinc) 
if (it.eq.l) zl2=-imp(dum2(aj ) ,ai+eliramc) 
if (it.eq.2) zl2=imp(dum2(aj ) f ai+elnuinc) 
endif 

imp(dum2( j) ,i+elnuinc)=zl2 
•ndif 

30 continue 
return 
end 


127 


o O O O O P 


subroutine fildd(lx,ly,lz,imp,nl,nh, , . 

+ ns , ml .m2 , epsr ,f req , elnumc »n) 

real pi.lx.ly.lz.d.hh.l.epsr.freq, 

+ klx ,kly ,klz ,nnilt 

+ is , j* ,«lnumc ,n, jh,ih. 

!“isysyr.'«^r?^srfsrif5spppfij«f ccc “ cecc “" 

interactions of the impedance matrix (submatrix D) 


called by: mom 


calls: zxx , zxy, zxz, zyy, zyz, zzz, symxx, symxy, symxz, 

cccccccecccccccccccccccccccccccccccccccecccccccccccccccccccccccccccc 

pi=atan( 1 . 0) *4 . 0 

klx=2.0*pi*lx 

kly=2.0*pi*ly 

klz=2.0*pi*lz 

pl=(0 .0 ,1 .0) 

pp xalnumc 

sym=l 

c do 10 j=l ,3*m2 
do 10 i=l ,3*m2 
c initialize 
ok=0 

mult=1.0 

c check obvious symmetry 
if (j.gt.i) then 
imp ( j +np , i+np) =imp ( i+np , j +np ) 

c determine locations of the currents i, j 
jt=int((j-l)/m2) 
jh=int((j-jt*m2-l)/ml) 
jw=int( ( j-jt*m2-jh*ml-l)/nl) 
jl=j-jt*m2-jh*ml-jw*nl 
it=int((i-l)/m2) 
ih=int((i-it*m2-l)/ml) 
iw=int ( (i-it*m2-ih*ml-l) /nl) 
il=i-it*m2-ih*ml-is*nl 
c determine Ir-r'l 
d=(jl-il)*klx 
hh= ( ih- jh) *kly 
l=(jw-is)*klz 

C if ((jt.eq.0) .and. (it.eq.0)) then 

c both currents in x-direction 
if (sym.eq.l) then 

Ch call"I^x(j, i,jt,jh, ja.jl.it, lb, iw,il.nl.™^.j«* ia * ok « ,Bult) 

c if^no^symmetry calculate interaction 

if (ok.eq.0) call zxx(klx,kly,klz,d,hh,l,zl2) 
endif 

C if ((jt.eq.0) .and. (it. eq.l)) then 

this interaction is zero for one y segment 

call*symxy(j!i^t^jh, ja.jl.it .ih.iw.il ,x»l,n*,nh,js, is, ok, mult) 

if^ok.aq.O) call zxy(klx,kly ,klz,d f hh,l,*12) 
zi2=0 . 0 


c 

c 

c 

c 

c 
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c 


c 

c 


c 


c 

c 


c 


c 


c 

c 

c 


c 

c 

c 


c 


c 


c 


c 


c 


c 


endlf 


if ((jt .eq.O) .and. (it.eq.2)) then 
current® in x and z direction 
if (sym.eq.l) then 
check symmetry 

call symxz( j ,i, jt , jh, jw, jl,it ,ih,iw,il f nl,nw > nh > js, 
endif 

if (ok. eq.O) then 

if ( (abs(d) .It .klx) .or. (abs(l) .It .klz)) then 
zl2=0 .0 

if no symmetry calculate interaction 

call zxz(klx,kly,klz,d,hh,l,z!2) 


endif 

endif 

endif 


if ((jt.eq.l) .and. (it.eq.l)) then 
both currents in y-direction 
if (sym.eq.l) then 
check symmetry 

call symyy(j,i,jt,jh,js,jl,it,ih,is,il,nl,ns,iih,js 

e ndi f 

if no symmetry calculate interaction 

if (ok.aq.O) call zyy(klx,kly ,klz,d,hh,l,zl2) 
endif 


if ((jt.eq.l) .and. (it.eq.2)) then 
if (sym.eq.l) then 

call symyz( j ,i , jt , jh, jw, jl,it ,ih,iw»il,nl,nw,nh, ji 

if *( ok. eq.O) call zyz(klx,kly ,klz f d,hh,l,zl2) 

zl2=0.0 

endif 


if ((jt.eq. 2) .and. (it.eq.2)) then 
both currents in z-direction 
if (sym.eq.l) then 
check symmetry 

call symzz( j ,i,jt,jh,jw,jl,it ,ih f iw,il,nl,nw,nh, js 

if *no^symmetry calculate interaction 

if (ok. eq.O) call zzz(klx ,kly ,klz ,d,hh,l,zl2) 
endif 


if (ok.eq.l) then 

use symmetry data to get the interaction 
imp ( j +np , i+np) =mult *imp ( j s+np , is+np) 

else 

imp ( j +np , i+np ) =zl 2 
if (j.eq.i) then 

add the self term from the field equality equation 
imp ( j +np , i+np) =imp ( j +np , i+np) + 

+ pi *120 . 0+pi/ (epsr-1 .0) 


endif 

endif 

endif 

10 continue 


do 20 j=l,3*m2 
do 20 1=1 ,3+m2 

multiply with the definition constants 
if ((i.ge.l) .and. (i.le.m2)) then 
imp ( j +np , i+np) =imp ( j +np , i+np) / (kly *klz ) 

endif vvv 

if ((i .gt .m2) .and. (i. Is. (2*m2))) than 


is, ok, mult) 


is, ok, mult) 


, is, ok, mult) 


, is, ok, mult) 
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imp ( j +np , i+np ) = imp ( j +np , i+np) / (klx*klz ) 

??*( (i . gt . (2*m2) ) . and. ( i . la . (3*m2 ) ) ) than 
imp( j+np, i+np) =imp( j+np , i+np)/ (klx*kly) 
andif 

20 continue 
return 
end 


130 


subroutine cgrad(imp , vlt ,n,nu,cr) 
real xl , x2 , x3 , t ol , bk , alpha , c 

complex imp(n,n) ,cr(n) ,vlt (n) , 

+ p(n) ,r(n) ,temp(n) 

integer i,j,n,nu 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine cgrad solves nu by nu MoM matrix equation c 

c c 

c called by: mom c 

c c 

c calls: atrcgp, adot, uap, uapr c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c initialize the error and solution vectors 
c=i .e-4 
do 10 j=l,nu 
r( j )=vlt ( j ) 
cr(j)=0.0 
10 continue 

c calculate initial error norm 
call adot(n,nu,r,r,xl) 
c tolerance=c* initial error norm 
tol=c*sqrt(xl) 

write(6,*f) ’initial error = 9 ,sqrt(xl) 
c calculate transpose conjugate of A times r ( *p ) 
call atrcgp(n,nu,imp,r,p) 
c iterate 

do 30 i=l,2*n 

c calculate transpose conjugate of A times r ( =temp ) 
call atrcgp(n,nu, imp, r, temp) 
c calculate norm of temp = x2 

call adot(n,nu, temp, temp, x2) 

CD IRQ H0VECT0R 
c 

c calculate A times p 
do 101 j2=l,nu 
terap( j2)=0 .0 
101 continue 

do 301 j2=l ,nu 

CD IRQ VECTOR 

do 201 i2=l ,nu 

temp( j2)=temp( j2)+imp( j2 ,i2)*p(i2) 

201 continue 
301 continue 
c 

c calculate norm of temp = x3 

call adot(n,nu, temp, temp, x3) 
alpha=x2/x3 

call uap(n,nu,cr , alpha, p) 
alpha=- alpha 

c calculate new r (error) vector 
call uap(n,nu,r, alpha, temp) 
c check error norm against tolerance 
call adot(n,nu,r,r ,xl) 
if (sqrt(xl) .It .tol) then 
itno=i 
goto 60 
endif 

g 

c calculate transpose conjugate of A times r ( =temp ) 
call atrcgp(n, nu, imp, r, temp) 
c calculate norm of temp = x3 

call adot(n,nu,temp,temp,x3) 
bk=x3/x2 

c calculate new p vector 
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call uapr(n 9 nu 9 terap 9 p 9 bk) 

30 continue , 

write(6 ,*) 2 *n, 'iterations without result' 
goto 62 

60 write(6 9 *) ' no of iterations = ' ,itno 
62 continue . ^ . 

write(6,*) 'error now = ' ,sqrt(xl) 
return 
end 
c 
(• 

subroutine atrcgp(n 9 nu 9 im 9 x ,y) 
complex im(n 9 n) 9 x(n) ,y(n) 
integer n 9 i, j ,nu 

c calculates the multiplication of transpose conjugate of i (nu by nu) 
c with x 9 puts result into y vector 

CD IRQ H0VECT0R 

do 11 i=i 9 nu 
y(i)=0.0 
CD IRQ VECTOR 

do 10 j=l 9 nu 

y (i)=y(i)+conjg(im( j ,i))*x(j) 

10 continue 

11 continue 
return 
end 

c 

subroutine uapr(n 9 nu 9 temp 9 p 9 bk) 
real bk 

complex temp(n) 9 p(n) 
integer n 9 i 9 nu 
c 

c calculates p=temp+bk*p , bk is a constant 
c 

do 10 i=l,nu 
p(i)=temp(i)+bk*p(i) 

10 continue 
return 
end 
c 

subroutine adot (n,nu,r 9 s 9 t) 
real t 

complex r(n) 9 s(n) 


calculates the dot multiplication of r and s 

integer n 9 i 9 nu 
t=0 . 0 

do 10 i=l 9 nu 
t=t+conjg(r(i) )*s(i) 

10 continue 
return 
end 

subroutine uap(n 9 nu 9 u 9 a 9 p) 

real a 

complex u(n) ,p(n) 
integer n,i,nu 

calculates u_new = u_old + a * p , a is a constant 


do 10 i=l,nu 
u(i)=u(i)+a*p(i) 

10 continue 
return 
end 
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subroutine partot (d,hh, wl ,hll ,h21 , w2 r hl2,h22 ,zl2) 
real d,hh,wl ,hll ,h21 ,w2,hl2,h22, ill, 121 ,112,122 
complex z,zl2 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine partot calculates the mutual impedance c 

c between two coplanar parallel surface dipoles i and j 
c Dipole i extends from monopole il to i2 whereas 
Dipole j extends from monopole jl to j2 

called by: filcc 


c 


c 


c 


c 


calls : par 

iccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


ill=0 .0 
121 = 1.0 
112 = 0.0 
122 = 1 .0 

calculate the first monopole interaction il-jl 
call par(ill ,12i,il2,122,d,hh,wl ,hll ,w2,hl2,z) 

zl2=z 

111 = 1.0 

121 = 0.0 

hh=hh-hll . _ 

calculate the second monopole Interaction 12- jl 

call par (ill ,121 ,112 ,122 ,d,hh, wl ,h21 ,w2 ,hl2 ,z) 

zl2=zl2+z 

112 = 1.0 

122 = 0.0 

hh=hh+hl2 , 

calculate the third monopole interaction 12- j 2 

call par (ill ,121 ,112 ,122 ,d,hh,wl ,h21 ,w2 ,h22 ,*) 
z!2=z!2+z 
111 = 0.0 
i21=l .0 

hh=hh+hll . , 

calculate the fourth monopole interaction 11- j 2 

call par(lll , 121,112 ,122 ,d,hh,sl ,hll ,a2 ,h22 ,z) 


zl2=zl2+z 

return 

end 
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subroutine part tot (d,hh, 1 ,wl ,hll ,h2i ,®2 ,hl2 ,h22 , zl2) 
real d, hh, *1, hll, h21,w2,hl2,h22, ill, 121, ii2, 122,1 
complex z,zl2 

c , narallel surface dipoles 1 and 3 c 


C 

c 

c 

c 

c 

c 

c 


Subroutine partox caicuiat«» : . 

between two non-planar parallel surface dipoles 1 and 3 
Dipole i extends from monopole 11 to 12 whereas 
Dipole j extends from monopole jl to 3 2 

called by: filcc 

calls: part 


cccccccc«cc“cccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C 111 = 0.0 
121 = 1.0 
112 = 0.0 

calculate the first “ ono P®l« i 12 ,3 

call par! (ill , 121,112,122 ,d,hh,l ,wl ,hll ,w2 ,hl2 ,z) 

zl 2 =z 
111 = 1.0 
121 = 0.0 

calculate^the second monopole interaction i-2-j 1 
r.n narf (ill .121 ,112,122 ,d,hh,l,wl ,h21,w2,hl2,z) 


c 


c 


zl 2 =zl 2 +z 

112 = 1.0 

122 = 0.0 

lalculat^the third monopole interactionl^-jl 

call parf (ill .121,112, 122, d,hh,l,wl ,h21 ,w2 ,h22,z) 

zl 2 =zl 2 +z 

ill= 0.0 

121 = 1.0 

lalculut^the fourth monopole interaction 11“ j| 

call narf (111,121, 112, i22,d,hh,l,wl,hll,w2,h22,z) 


zl2=zl2+z 

return 

end 
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subroutine ortot(d,hh,wl ,hll ,h21 f wi2.w22,h2 # zl2) 
real d,hh,wl ,hll ,h21 ,wl2 ,w22 ,h2, ill ,121 ,112 ,122 
complex z,zl2 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine ortot calculates the mutual impedance c 

c between two coplanar perpendicular surface dipoles i and j c 

c Dipole i extends from monopole izl to iz2 whereas c 

Dipole j extends from monopole jxi to jx2 

called by: filcc 


calls : orthog 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c ill=0 .0 
i21=l .0 
il2=0 .0 
122-1 0 

c calculate the first monopole interaction izl-jxl 

call orthogUll ,121 , 112 , 122 ,d,hh,wl ,hll ,»12,h2 ,z) 

zl2=z 

111 = 1.0 

121 = 0.0 

hh=hh-hll , . _ . . 

c calculate the second monopole interaction iz2-jxl 

call orthogdll ,121 ,112 , 122 ,d ,hh , wl ,h21 ,wl2 ,h2 ,z) 

zl2=zl2+z 
il2=l .0 
i22=0 .0 
( j-d+wl2+w22 

c calculate the third monopole interaction iz2-jx2 

call orthog (ill ,i21 ,i!2 ,i22 ,d,hh f wl ,h21 ,w22,h2,z) 

zl2=z!2+z 
ill=0 .0 
i21=l .0 

c calculate the fourth monopole interaction izl-jx2 

call orthogUll ,i21 ,il2 , i22 ,d,hh, wl ,hll ,w22 ,h2 ,z) 


zl2=zl2+z 

return 

end 
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subroutine orftot (d,hh,l,wl ,hll »^l>®J?»*22*h2,zl2) 
real d,hh,wl ,hll ,h21 ,wl2 ,w22 ,h2 , ill ,i2i ,112 ,122 ,1 
complex z,zl2 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine orftot calculates the mutual impedance c 

c between two non-planar perpendicular surface dipoles i and j c 
c Dipole i extends from monopole izl to iz2 whereas c 

Dipole j extends from monopole jxl to jx2 ® 

called by: filcc ® 

ccccccciciccSccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C ill=0.0 

i21=l .0 
il2=0 .0 
122=1.0 

c calculate the first monopole interaction izl-jxl 

call orf (ill ,i21,il2,i22,d f hh,l,wl,hll,wl2,h2,z) 
zl 2 =z 
111 * 1.0 

i 2 -hh-hll 

c calculate the second monopole interaction iz2~jxl 
call orf (ill ,i21,il2,i22,d,bh,l,wl ,h21 ,wl2,h2,z) 
zl2=zl2+z 
i!2=l .0 
i22=0 .0 
d~d+wl2+w22 

c calculate the third monopole interaction iz2-jx2 

call orf (ill ,i21,il2 t i22,d,hh,l,wl ,h21 ,.22 ,K2,z) 

zl2=zl2+z 

ill*0.0 

i 21 =l .0 

hh=hh+hll , _ . . . _ 

c calculate the fourth monopole interaction izl-jX2 

call orf (ill ,i21,il2,i22 ,d,hh,l,.l ,hll ,s22,h2,z) 

zl2=zl2+z 

return 

end 
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subroutine par(ill ,i21 ,ii2,i22 ,d,hh,wl ,hl ,w2 ,h2,zl2) 
real pi f iH. ±21,112 ,122 ,d,hh,hl, wl, kd,kwl ,khl ,khh,ab(3) , 

gamma, xl ,x2 ,yl ,y2,sl ,s2,a(2) ,h2,w2 f kh2,kw2 , 
zl(3) ,z2(3) ,b(2) 
complex zl2,z,pl,zd 
integer i,flag,j,ng 


Subroutine par calculates the mutual impedance 
between two coplanar parallel surface monopoles i and j 


c 

c 

c 


called by: partot 

calls: gqld, lunl, 111, 112, lun2, 113, 114, 11, zz, 

:ccccccc?cccccc?ccccccicccccc?ccccccccccccccccccccccccccccccccccc 

calculate tha constants and inltializs 

pl=(0. 0,1.0) 

pi=atan(l .0)*4.0 

kd=2.0*pi*d 

kwl=2.0*pi*wl 

kw2=2.0*pi*w2 

khl=2.0*pi*hi 

kh2=2 . 0*pi*h2 

khh=2 . 0*pi*hh 

a(l)=-ill+i21*cos(khl) 

a(2)=ill*cos(khl)-i21 

b(l)=khh-khl 

b(2)=khh 

ab(l)=kwl+kw2-kd 

ab(2)=2.0*kw2 

il (wl.lt.w2) then 

ab(2)=2.0*kwl 

endil 

ab(3)=kwl+kw2+kd 

xl=0.0 

x2=kh2 

yl=abs(kwl-kw2) 

y2=kwl+kw2 

sl=-y2 

s2=y2 

zl(l)=-y2 

z2(l)=-yl 

zl(2)=-yl 

z2(2)=yl 

zl(3)=yl 

z2(3)=y2 

gamma=7 . S0/(kwl*kw2*sin(khl)*sin(kh2)) 

zl2=0.0 

ng=24 

il (abs(d) .gt. (2.0*(wl+w2)/2.0)) ng=6 
il (abs(d) .gt . (4.0*(wl+w2)/2 .0)) ng=4 
il (abs(d) .gt . (6.0*(wl+w2)/2.0)) ng=2 

calculate the mutual impedance 


do 10 i=i ,2 
llag=l 

call gqld(khh,khl,kh2,kd,z,xl,x2,ab,zl,z2, 
kwl,kw2,il2,i22,b(i) ,llag,ng) 


zl2=zl2+z*a(i) 

llag=2 


zd=0.0 
do IT j = l ,3 
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if (zl(j) .eq.z2(j)) goto IT 

call gqld(khh,khl ,kh2,kd,z,zl(j) ,z2(j) ,ab,zl,z2, 

+ kwl, kw2,112, 122, b(i) , flag, ng) 

zl2=zl2+z*a(i) 

17 continue 
10 continue 

zl2=zl2*gamma*(-pl) 

return 

end 

gqld - calculates integral in one dimension 

subroutine gqld(khh,khl ,kh2,kd,z,xl,x2,ab,zl ,z2, 

+ kwl ,kw2, 112, 122, b, flag, ngaus) 

real kd,zl,x2,kwl,kw2,xm,xr,pl,p2,x(24) ,w(24) ,dx,112, 

+ khh,122,kbl,kh2,ab(3) ,zl(3) ,z2(3) ,b, diat.pl 

complex z ,rl »r2 
integer j, flag, ngaus 

if (ngaus .eq.24) call gaus24(x,v) 

if (ngaus. eq. 6) call gaus6(x,v) 

if (ngaus. eq. 4) call gaus4(x,v) 

if (ngaus. eq. 2) call gaus2(x,w) 

xm=0.50+(xl+x2) 

xr=0 . BO* (x2-xl) 

z=0 .0 

do 10 j=l , ngaus 
dx=xr*x( j ) 
pl=xm+dx 
p2=xm-dx 

if (flag.eq.l) then 

call funl(khh,khl,kh2,kd,xl,x2,ab,zl,z2,kwl,kw2,il2,122,b,pl,rl) 
call funl(khh,khl ,kh2,kd,xl ,x2,ab,zl ,z2, kwl, kw2, 112,122, b,p2,r2) 
else 

call fun2(khh,khi ,kh2,kd,xl ,x2,ab,zl ,z2,kwl ,kw2,il2 ,i22,b,pl ,rl) 
call fun2(khh,khl,kh2,kd,xl,x2,ab,zl,z2,kwl,kw2,112,122,b,p2,r2) 
endif 

z=z+w( j)*(rl+r2) 

10 continue 
z=xr*z 
return 
end 

funl calculates the integrand of first integral 


c 


c 


subroutine funl(khh,khl ,kh2,kd,xl ,x2 ,ab,zl ,z2 ,kvl ,kw2, 
+ il2 ,i22 ,b,x,zl2) 

real kd.b.kwl ,kw2,112,122,x,xl ,x2 ,ab(3) ,zl(3) ,z2(3) , 

+ khl ,kh2 ,khh 

complex z,pl,zl2 
integer j 


10 


zl2=0.0 
pl=(0. 0,1.0) 

call ffl(kd,b,zl(l) ,z2(l) ,x,z,kh2,il2,122) 
z!2=zl2+z 

call ffl(kd,b,zl(3),z2(3),x,z,kh2,il2,122) 

zl2=zl2-z 

do 10 j =1 , 3 

call ff2(kd,b,zl(j) ,z2(j) ,x,z,kh2,il2,i22) 

zl2=zl2+ab(j)*z 

continue 

zl2=zl2+pl 

return 

end 


subroutine ff l(kd,b,yl ,y2 ,x,z ,kh2 ,il2 ,122) 
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c 


c 


c 


c 


c 


c 


real kd,b,yl ,y2,x,kh2,112,i22,cl ,c2,c3 
complex z,pl 

pl=(0.0,-1.0) 

cl=sqrt ( (kd+y2) ++2+ (b+x) **2) 
c2=sqrt ( (kd+yl ) **2+ (b+x) **2) 
call Il(x,kh2,112,122,c3) 
z= (cexp(pl*cl ) -cexp (pl+c2) ) *c3 
return 
end 

subroutine 112(kd,b,yl ,y2,x,z ,kh2,112,122) 
real kd,b,yl ,y2,x,kh2,112,122,cl,c2,c3 
complex z,pl,c4,cB 

pl=(0 . 0,-1 .0) 

cl=sqrt((kd+y2)**2+(b+x)*+2) 
c2=sqrt ( (kd+yl)**2+(b+x)*+2) 

call 11 (x ,kh2 ,112 ,122 ,c3) 

11 (cl.eq.(O.O)) then 
c4=l .0 

else , 

c4=cexp(pl*cl)*(kd+y2)/cl 

endil 

11 (c2 .eq. (0.0)) then 
cB=l .0 

else v , 

cB=cexp(pl*c2)*(kd+yl)/c2 

endil 

z=(c4-cB)+pl*c3 

return 

end 


lun2 calculates the integrand ol 2nd integral 

subroutine lun 2 (khh,khl ,kh 2 ,kd,xl ,x2,ab,zl,z2,kwl,kw2, 
+ 112,122 ,b ,x ,zl2) 

real kd,b,kwl ,kw 2 , 112 ,122 ,x,xl ,x2,ab(3) ,zl(3) ,z2(3) , 

+ khl ,kh2 ,khh 

complex z ,pl , z!2 


zl2=0 .0 
pl=(0. 0,1.0) 

call 113(kd,b,kh2 ,x,z, 112,122) 
zl2=zl2+z 

call 114(kd,b,kh2,x,z,112 ,122) 
zl2=z!2-z 

11 (x.lt .zl(2) ) then 

zl2=zl2*ab(l) 

endil 

11 ( (x.ge .zl(2) ) .and. (x.lt ,z2(2) ) ) then 

z!2=zl2*ab(2) 

endil , x v 

11 (x.ge.z2(2)) then 

zl2=zl2*ab(3) 

endil 


zl2=zl2*pl 

return 

end 


subroutine 113(kd,b,kh2 .x,z ,112,122) 
real kd,b,kh2,x,112,i22,cl ,c2,c3,c4 
complex z ,pl , cB , c6 


pl=(0 .0,-1 .0) 

cl=sqrt ( (kd+x)++2+(b+kh2)++2) 
c2=sqrt( (kd+x)**2+b**2) 
call Il(kh2,kh2 ,112,122,c3) 
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call ff((0.0),kh2,il2,i22,c4) 
if (cl.aq.(O.O)) than 
c5=c3 

else 

cB=cexp(pl*cl)*(b+kh2)*c3/cl 

endif 

if (c2 . eq. (0.0)) then 
c6=c4 

else v . ^ 

c6=cexp(pl*c2)*b*c4/ c2 
endif 

z=(cB-c6)*pl 

return 

end 

subroutine ff 4(kd,b,kh2 ? x,z ,112 ,122) 
real kd,b,kh2 ,x,il2,i22,cl ,c2,c3, 
complex z,pl 

pl=(0 .0 ,-l .0) 

ci=sqrt((kd+x)**2+(b+kh2)**2) 
c2=sqrt ( (kd+x)**2+b**2) 

call zz(kh2,kh2 >112,122,03) 

call zz((0.0) ,kh2,il2,i22,c4) 

Z=cexp(pl*cl)*c3-cexp(pl*c2)*c4 

return 

end 

subroutine ff (x,kv, 112,122, y) 

real x,kw,il2 ,i22,y 

y=il2+sin(kw-x)+i22*sin(x) 

return 

end 

subroutine zz(x,kw , 112,122, y) 

real x,kw ,112,122 ,y 

y=-112*cos(kw-x)+122*cos(x) 

return 

end 
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subroutine pari (ill ,121 ,il 2 ,122 9 d,hh, t ,wl ,hl ,h2 ,h 2 ,z12) 
real pi ,111 ,121,112 ,122 ,d,hh, hi ,wl ,kd,kwl ,khl ,khh,ab( 3 ) , 

+ gamma, xl ,x2,yl,y2,sl,s2,a(2) ,h2,*2 ,kh2 ,kv2, 

+ zl(3) ,z2(3) ,b(2) ,t,kt ,dist 

complex zl2,z,pl,zd 
Integer i,typ,ilag, j ,ilag2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

Subroutine pari calculates the mutual impedance c 

between two non-plenar parallel auriace monopolea i and j c 

called by: parftot ® 

calls: gq2df, gqldf , funlf , fnnf3, fflf, It21, lun21 , c 

cccccccccccccccccccccccccccccccclcccccccccccccccccccccccccccccccccc 

calculate the constants and initialize 


c 

c 

c 


pl=(0. 0,1.0) 

pi=atan(l .0)*4.0 

kd=2.0*pi*d 

kwl=2.0*pi*wl 

kw2=2.0*pi*w2 

khl=2.0*pi*hl 

kh2=2 . 0*pi*h2 

khh=2 . 0*pi*hh 

kt=2.0*pi*t 

a(l)=-ill+i21*cos(khl) 

a(2)*ill*cos(khl)-i21 

b(l)=khh-khl 

b(2)=khh 

ab(l)*kwl+kw2-kd 

ab(2)=2.0*kw2 

if (wl.lt.w2) then 

ab(2)=2.0*kwi 

endif 

ab(3)=kwl+kw2+kd 

xi=0.0 

x2=kh2 

yl=abs(kwl-kw2) 


y2=kwl+kw2 

si=-y2 

s2=y2 

zl(l)=-y2 

z2(l)=-yl 

zl(2)=-yl 

z2(2)=yl 

zl(3)=yl 

z2(3)=y2 

gamma=7 . 60/(kwl*kw2*sin(khl)*sin(kh2) ) 

zl2=0 .0 

flag2=0 

dist=sqrt(d**2+hh**2) 

if (dist.ge. (100.0*abs(t))) flag2=l 


calculate the mutual impedance 


do 10 i=l ,2 

if (flag2.eq.l) then 

flag=l 

call gqldf (kt ,khh,khl ,kh2 ,kd,z ,xl ,x2 ,ab ,zl ,z2, 
+ kwl,kw2,il2,i22,b(i) .flag) 

zl2=zl2+z*a(i) 
flag*2 
zd=0 . 0 
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c 

c 

c 


do 17 j=l ,3 

il <zl(j).aq.z2(j)) goto 17 
if (flag2.aq.l) than 

call gqldf (kt ,khh,khl ,kh2 ,kd,z ,zl( j) ,z2(j) ,ab,zl,z2, 

+ kwl, ka2,il2, 122, b(i) .flag) 

call gq2df (kt,khh,khl,kh2,kd,z,zl(j) ,z2(j) ,xl,x2,ab,zl,z2, 
+ kwl, kw2, 112, 122, b(i) .flag) 

endif 

zl2=zl2+z*a(i) 

17 continue 
10 continue 

zl2=zl2*gamma+ (-pi ) 

return 

end 

g2qdf - calculates integral in two dimensions 

subroutine gq2df (kt ,khh,khl ,kh2,kd,z,xl ,x2 ,yl ,y2 ,ab,zl »z2 , 
+ kwl ,kw2 , i!2 , 122 f b t f lag) 

real kd,xl ,x2,kwl f kw2,xm,xr,pl ,p2,x(24) ,w(24) ,dx,il2, 

+ khh,122 ,khl ,kh2 ,ab(3) ,zl(3) ,z2(3) ,b,dist ,pi,yl,y2, 

+ ym,yr,dy,ql,q2,kt 

complex z ,rl f r2,r3 ,r4 
integer j,flag,ngaus 


pi=4.0*atan(l .0) 
ngaus-6 

call gaus6(x,w) 
xm=0 . 60*(xl+x2) 
xr=0 . 60*(x2-xl) 
ym=0 . 60* (yl+y2) 
yr=0.60*(y2-yl) 
z=0 , 0 

do 10 j=l,ngaus 

dx=xr*x(j) 

pl=xm+dx 

p2=xm-dx 

do 11 i=l ,ngaus 

dy=yr*x(i) 

ql=yra+dy 

q2=ym-dy 

call funf 3(kt ,khh,khl,kh2,kd > xl f x2,ab,zl,z2,kwl f kw2, 

+ 112,i22,b,ql t pl,rl) 

call Iunl3(kt,khh,khl,kh2,kd,xl,x2,ab > zl,z2,kwl > kw2, 

+ il2,i22,b,ql,p2,r2) 

call funf 3 (kt ,khh ,khl ,kb2 ,kd ,xl ,x2 ,ab ,zl ,z2 ,kwl ,kw2 , 

+ 112,122 »b,q2 f pl ,r3) 

call funf 3(kt ,khh,khl ,kb2 ,kd,xl ,x2 ,ab t zl ,z2 ,kwl ,kw2 , 

+ il2 , 122 ,b ,q2 ,p2 , r4) 

z=z+w( j ) *w(i) * (rl+r2+r3+r4) 

11 continue 

10 continue 
z=xr*yr*z 
return 
end 

glqdi - calculates integral in one dimension 

subroutine gqldf (kt , kbh , kfal ,kb2,kd,z , xl »x2 , ab,zl , z2 , 

+ kwl ,kw2 , 112 , 122 ,b , flag) 

real kd,xl ,x2 f kwl ,kw2,xm,xr ,pl ,p2,x(24) ,w(24) ,dx,il2, 

+ khk,i22 ,khl ,kh2 ,ab(3) ,zl(3) ,z2(3) ,b,dist ,pi,kt 
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complex z,rl,r2 
integer j,flag,ngaus 

pi=4.0*atan(l .0) 
ngaus=6 

call gaua6(x,w) 
xm=0.60*(xl+x2) 
xr=0 . 50* (x2-xl ) 
z=0.0 

do 10 j=l ,ngaug 
dx=xr*x(j) 
pl=xm+dx 
p2=xm-dx 

if (flag.eq.l) then 

call funlf (kt ,khh,khl,kh2,kd,xl ,x2,ab,zl,z2,kwl,kw2 f 
+ il2,i22,b,pl,rl) 

call f nnlf (kt , khh , khl ,kh2 ,kd , xl , x2 , ab , zl , z2 ,kwl ,kw2 , 

+ il2,i22,b,p2,r2) 

else 

call fun2f (kt ,khh,khl ,kh2 ,kd,xl ,x2 ,ab ,zl ,z2 ,kwl ,kw2 , 

+ il2,i22,b,pl,rl) 

call fun2f (kt ,khh,khl ,kh2 ,kd,xl ,x2 ,ab ,zl ,z2 ,k*l ,kw2 , 

+ 112,i22,b,p2,r2) 

endif 

z=z+w(j)*(rl+r2) 

10 continue 
z=xr+z 
return 
end 

funl calculates the integrand of first integral 

subroutine funlf (kt ,khh,khl ,kh2 ,kd, xl ,x2 , ab ,zl , z2,kwl ,kw2 , 
+ il2 ,i22,b,x,z!2) 

real kd,b,kwl ,kw2,il2,i22,x,xl f x2,ab(3) ,zl(3),z2(3) , 

+ khl,kh2,khh,kt 

complex z,pl,zl2 
integer j 

zl2=0 . 0 
pl=(0. 0,1.0) 

call fflf(kt,kd,b,zl(l) ,z2(l) ,x,z ,kh2,i!2,i22) 
zl2=zl2+z 

call fflf (kt,kd,b,zl(3) ,z2(3) f x,z,kh2,il2,i22) 

zl2=zl2-z 

do 10 j=l ,3 

call ff 2f (kt ,kd,b,zl(j ) ,z2( j ) ,x,z ,kh2 ,il2 ,122) 
zl2=zl2+ab(j)*z 
10 continue 
z!2=zl2*pl 
return 
end 

funf3 calculates the integrand 

subroutine funf 3(kt ,khh,khl ,kh2,kd,xl ,x2,ab,zl ,z2,kwl ,kw2 , 
+ 112 ,i22,b,y ,x,zl2) 

real kd,b,kwl,kw2,il2,i22,x,xl,x2,ab(3) ,zl(3) ,z2(3) , 

+ khl ,kh2 ,khh,kt ,y ,cl ,c2 

complex z,pl,zl2 
integer j 

z!2=0 .0 
pl=(0. 0,1.0) 

call fff (y,kh2,il2,i22,c2) 
cl=sqrt ( (kd+x)**2+(b+y)**2+kt+*2) 
zl2=cexp(-pl+cl)*c2/cl 
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c 


c 


c 


c 


c 


if (x.lt .zl(2) ) then 
zl2=zl2* (x+kwl+kw2) 
endif 

if ((x.ge.zl(2)) .and. (x.lt .z2(2) ) ) then 

zl2=zl2*ab(2) 

endif 

if (x.ge.z2(2)) then 

zl2=z!2*(-x+kwl+kw2) 

endif 

return 

end 

subroutine fflf (kt,kd,b,yl,y2,x,z,kh2, 112,122) 
real kd,b ,yl ,y2 ,x ,kh2 , 112 ,122 ,ci , c2 , c3 ,kt 
complex z,pl 

pl=(0.0,-1.0) 

cl=sqrt((kd+y2)e*2+(b+x)*e2+kt**2) 

c2=sqrt ( (kd+yl ) **2+ (b+x) **2+kt ** 2 ) 

call fff(x,kh2,112,122,c3) 

z=(cexp(pl*cl)-cexp(pl*c2))*c3 

return 

end 

subroutine ff 2f (kt ,kd,b,yl ,y2 ,x,z,kh2,il2 ,122) 
real kd,b , yl ,y2 ,x ,kh2 , i!2 ,122 , cl ,c2 , c3 ,kt 
complex z,pl,c4,c6 


pl=(0 .0 ,-l .0) 

cl=sqrt ( (kd+y2)++2+(b+x)**2+kt , **2) 
c2=sqrt((kd+yl)**2+(b+x)**2+kt**2) 
call fff (x,kh2,il2,i22,c3) 
if (cl.eq.(O.O)) then 
c4=l .0 

else v , 

c4=cexp(pl*cl)*(kd+y2)/cl 

endif 

if (c2.eq. (0.0)) then 
c5=l . 0 

ClSS V . 

c5=cexp(pl*c2)*(kd+yl)/c2 

endif 

Z=(c4-c5)*pl*c3 

return 

end 

fun2f calculates the integrand of 2nd integral 

subroutine f un2f (kt , khh , khl ,kh2 ,kd , xl , x2 , ab ,zl , z2 , kwi ,kw2 , 
+ 112,i22,b,x,zl2) 

real kd,b ,kwl ,kw2 ,112,122 ,x ,xl ,x2 , ab(3) ,zl(3) , z2(3) , 

+ khl ,kh2 ,khh,kt 

complex z,pl,zl2 

zl2=0 .0 
pl=(0. 0,1.0) 

call f f 3f (kt ,kd,b ,kh2,x ,z ,il2 ,122) 
z!2=zl2+z 

call ff4f (kt ,kd,b,kh2,x,z, 112,122) 
zl2=zl2-z 

if (x.lt.zl(2)) then 
zl2=zl2+ab(l) 

endif . _ _ v . 

if ((x.ge.zl(2)) .and. (x.lt. z2(2))) then 

zl2=zl2*ab(2) 

endif 

if (x.ge.z2(2)) then 
z!2=zl2*ab(3) 
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c 


c 


c 


c 


c 


c 


endll 

zl2=zi2*pl 

return 

end 


subroutine 1131 (kt ,kd,b,kh2 ,x,z,112,i22) 
real kd, b,kh2, 1,112, 122 ,cl ,c2 ,c3 ,c4,kt 
complex z,pl,cB,c6 


pl=(0.0,-1.0) 

cl=sqrt((kd+x)**2+(b+kh2)**2+kt**2) 
c2=sqrt((kd+x)**2+b**2+kt**2) 
call 1110012,1012,112,122,03) 
call 111((0.0) ,kh2,112,122,c4) 

11 (cl .eq. (0.0) ) then 

c5=c3 

else 

cB=cexp(pl*cl) * (b+kh2) *c3/cl 
endll 

11 (c2 .eq. (0.0)) then 
c6=c4 

else 

c6=cexp(pl*c2)*b*c4/c2 

endll 

z=(cB-c6)*pl 

return 

end 

subroutine 1141 (kt ,kd,b,kh2,x,z,112,122) 
real kd ,b , kh2 , x , 112 , 122 , c 1 , c2 , c3 , c4 ,kt 
complex z,pl 

pl=(0.0,-1.0) 

cl=sqrt ( (kd+x) **2+ (b+kh2) **2+kt**2) 

c2=sqrt ( (kd+x)**2+b**2+kt*+2) 

call zzl (kh2 ,kh2,112 ,122 ,c3) 

call zzl((0.0) ,kh2,112,122,c4) 

Z=cexp(pl*cl)*c3-cexp(pl*c2)+c4 

return 

end 

subroutine lll(x,k9,112,122,y) 

real x,kw,112 ,122,y 

y=112*sin(kw-x)+122*sin(x) 

return 

end 

subroutine zzl(x,kw,112,122,y) 
real x,kw,112 ,122 ,y 
y=-112*cos (kw-x)+122*cos (x) 
return 
end 
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subroutine orthog(ill , i21 ,il2 ,122 ,d,hh,wl ,M »w2 ,h2 , zl2) 
real pi,ill,i21,il2,i22,d,bh,hl,wl,kd,kwl,khl,khh, 

+ a(2) ,h2,w2,kw2,kh2,gamma,xl(3) ,x2(3),spt,cl 

complex zl2,z,cj 
integer i, j ,typ,ilag,ng 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine orthog calculates tbe mutual impedance c 

e between two coulanar perpendicular surface monopoles i and j c 



calculate tbe constants and initialize 


pi=atan(l .0)*4.0 

kd=2.0*pi*d 

kwl=2.0*pi*wl 

kw2=2.0*pi*w2 

khl=2.0*pi*hl 

kh2=2 . 0*pi*h2 

khh=2 . 0*pi*hh 

a(l)=-ill+i21*cos(khl) 

a(2)=-i21+iil*cos (kbl) 

gamma=-30.0/(2.0*kwl*kh2*sin(2.0*kw2)«'sin(khl)) 

xl ( 1 ) =- (kwl+kw2) 
x2(l)=-abs (kwl-kw2 ) 
xl(2)=x2(l) 
x2(2)=-x2(l) 
xl(3)=x2(2) 
x2(3)=-xl(l) 
c 

spt=-kd 
zl2=0 .0 
ng=24 

if (abs(d) .gt . (2.0*(wl+w2)/2.0)) ng=6 
if (abs(d) .gt.(4.0*(wl+w2)/2.0)) ng=4 
if (abs(d) .gt . (6.0*(wl+w2)/2.0)) ng=2 
c 

c calculate the mutual impedance 

C do 10 i=l ,2 
f lag=i 
do 20 j=l ,3 

if (xl(j) .eq.x2(j)) goto 20 

call gqldo(kd,khh,kh.l ,kh2 ,z ,typ,f lag ,xl(j ) ,x2( j ) , 
+ kwl ,kw2 , 112 , 122 , apt , j , c j ,ng) 


zl2=zl2+z*a(i) 

call conio(kd,khh,khi,kh2,z,typ,llag 
+ kwl ,kw2 , 112 , 122 , apt f j ,cj) 


,xl(j) ,x2( j ) , 


zl2=zl2+z*a(i) 

20 continue 
10 continue 

zl2=zl2*gamma 

return 

end 

c 

c gqldo - calculates integral in one dimension 

subroutine gqldo(kd,khh, kbl, kh2,z,typ, flag, xl,x2, kwl, 
+ kw2,il2,i22,spt,m,cj ,ngaus) 

real kd,xl ,x2 ,kwl ,kw2,xm,xr ,pl ,p2,x(24) ,w(24) ,dx, 

+ il2,i22,khb,khl,kh2,pi,spt 

complex z,rl,r2,cj 
integer typ, j ,flag,ngaus ,m 
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if (ngaus.eq.24) call gaus24(x,w) 
if (ngaus.eq.6) call gaus6(x,w) 
if (ngaus.eq.4) call gaus4(x,w) 
if (ngaus.eq.2) call gaus2(x,w) 
xm=0 . 60* (xl+x2) 
xr=0 . 60* (x2-xl ) 

2 = 0.0 

do 10 j=i ,ngaus 
dx=xr*x( j ) 
pl=xm+dx 
p2=xm-dx 

call funo(kd, khh, khl ,kh2, typ, flag, kwl,kw2,il2,i22,pl,rl, 

+ xl ,x2,spt ,cj ,m) 

call f uno (kd , khh , khl , kh2 , typ , flag , kwl , kw2 , il2 , i22 ,p2 , r2 , 

+ xl ,x2,spt ,cj ,m) 

z=z+w(j)*(rl+r2) 

10 continue 
z=xr*z 
return 
end 

funo calculates the integrand of one dim. integral 

subroutine funo ( kd, khh , khl ,kh2, typ, flag, kwl ,kw2,il2,i22,x,z, 
+ xl,x2,spt ,cj ,m) 

real kd,khh,khl ,kh2,kwl ,kw2 ,il2,i22,x,cl ,c2,c3,c4,c6, 

+ gO ,f 03 ,f 04 ,xl ,x2 ,spt 

complex z,pl ,c6,c7,cj 
integer typ,flag,m 

calculate the related parameters 

pl=(0.0,-1.0) 
cl=(f lag)-2.0 
c2=khh+cl*khl 

c3=sqrt ( (kd+x)**2+(c2+kh2)**2) 
c4=sqrt ( (kd+x) **2+c2**2) 
f 03=sqrt ( (c2+kh2) **2) 
f04=sqrt(c2**2) 
c5=(cexp(pl*c3)-cexp(pl*c4)) 
c7=(cexp(pl*f03)-cexp(pl*f04) ) 

if (m.eq.l) then 

c6=il2*(cos(kw2-kwl-x)-cos(2.0*kw2)) 
c6=c6+i22*(i . 0-cos (x+kwl+kw2) ) 
g0=il2* ( cos (kw2+kd-kwl ) -cos (2 . 0*kw2) ) 
g0=g0+i22* ( 1 . 0-cos (kwl+kw2-kd) ) 


if (m.eq.2) then 

if (kwl.gt.kw2) then 

c6=(l . 0-cos (2 . 0*kw2) )*(il2+i22) 

g0=c6 

else 

c6=il2*(cos(kw2-kwi-x)-cos(kw2+kwl-x) ) 
c6=c6-i22* (cos (kw2+kwl+x) -cos (kw2-kwl+x) ) 
g0=il2* (cos(kw2+kd-kwl) -cos (kw2+kwl+kd) ) 
g0=g0-i22* (cos (kw2+kwl-kd) -cos (kw2-kwl-kd) ) 

endif 

endif 

if (m.eq.3) then 

c6=il2* ( 1 . 0-cos (x-kwl-kw2) ) 

c6=c6+i22* (cos (x+kw2-kwl ) -cos (2 . 0*kw2) ) 
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c 


c 

c 


c 


g0*ii2*(l. O-cos (-kwl-kw2-kd)) 

g0=g0+i22* (cos (kw2-kwi-kd)-cos (2 . 0*kw2) ) 
endlf 

if ((kd+x) .oq. (0.0)) then 

z=0 . 0 

else 

z=c6*c6 

z=(z-c7*g0)/(kd+x) 

endlf 

ci=c7*g0 


return 

end 

conso calculate b the extracted singularity of integral 
subroutine conso (kd,khh t khl ,kh2 > z,typ,flag,xl,x2, 

+ kwl,kw2,il2,i22,spt,j,cj) 

real kd , khh , khl , kh2 , xl , x2 , kwl ,kw2 , il2 , i22 , spt 
complex z,cj 
integer typ,flag,j 


if (spt.eq.xl) then 
z=log(kd+x2) 

else . , 

if (spt .eq.x2) then 

z=-log ( abs (kd+xi ) ) 

z=log(abs( (kd+x2)/(kd+xl) )) 

endif 

endlf 

z=z*cj 


return 

end 
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subroutine orl (ill ,i21 , 112 ,122 ,d,hh,t ,wl ,hl t w2,h2 ,zl2) 
real pi, ill ,121 ,112 ,i22,d,hh,hl ,wi,kd,kwl ,khl ,khh,t , 

+ a(2) ,h2,w2,kw2,kh2, gamma, xl(3) ,x2(3),kt 

complex zl2,z 
integer i,j,typ,llag 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine orl calculate* the mutual impedance c 

between two non-planar perpendicular surface monopoles i and j c 

called by: ori tot ® 

calls : gqldof , iunof , conso , gaus6 c 

•cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

calculate the constants and initialize 


pi=atan( 1 . 0) *4 . 0 
kd=2.0*pi*d 
kwl=2.0*pi*wl 
kw2=2.0*pi*w2 
khl=2.0*pi*hl 
kh2=2 . 0*pi+h2 
khh=2 . 0*pi*hh 
kt=2.0*pi*t 

a(l ) =- 111 + 121 * 008 (khl) 

a(2)=-i21+ill*cos(khl) 

gamma=-30 . 0/ (2 . 0*kwl*kh2*sin(2 .0*kw2) *sin(khl) ) 


xl(l)=-(kwi+kw2) 

x2 ( 1 ) =-abs (kwl-kw2) 

xl(2)=x2(l) 

x2(2)=-x2(l) 

xl(3)=x2(2) 

x2(3)=-xl(l) 

z!2=0.0 


calculate the mutual impedance 


do 10 1*1,2 
flag=i 
do 20 3=1,3 

il (xl(j) .eq.x2(j)) goto 20 

call gqldof (kt , kd , khh ,khl ,kh2 , z , typ , Hag ,xl(j),x2(j), 

+ kwl ,kw2 , 112 , 122 , j ) 

zl2=zl2+z*a(i) 

20 continue 
10 continue 

zl2=zl2*gamma 

return 

end 

gqldof - calculates integral in one dimension 

subroutine gqldof (kt,kd, khh, khl, kh2,z, typ, flag, xl,x2,kwl, 
+ kw2,112,i22,m) 

real kd.xl ,x2,kwl ,kw2,xm,xr ,pl ,p2,x(24) ,w(24) ,dx, 

+ 112,122, khh, khl ,kh2,pi,kt ,dist 

complex z,rl,r2 
integer typ, j ,flag ,ngaus ,ra 

pi=atan(l .0)*4.0 
ngaus=6 

call gaus6(x,v) 
xm=0 . 50* (xi+x2) 
xr=0 . BO* (x2-xl) 
z=0 .0 

do 10 j=l ,ngaus 
dx=xr*x(j) 
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pl=xm+dx 

p2=xm-dx 

call t\mol (kd,khh,khl ,kh2 , typ ,f lag ,kwl ,kw2 , 112,122 ,pl ,rl , 

+ xl,x2,m,kt) 

call funof (kd,khh,khl,kh2, typ, flag ,kwl ,kw2 , 112,122 ,p2 ,r2 , 

+ xl,x2,m,kt) 

z=z+w(j)*(rl+r2) 

10 continue 
z=xr*z 
return 
end 

funof calculates the integrand of one din. Integral 

subroutine funof (kd,khh,khl ,kh2 ,typ ,f Iag,kwl,kw2,il2,122 ,x ,z , 
+ xl,x2,m,kt) 

real kd,khh,khi ,kh2,kwl ,kw2,112,122,x,cl,c2,c3,c4,c6, 

+ xl,x2,kt 

complex z,pl,cB 
integer typ, f lag, m 

calculate the related parameters 


c 

c 


c 

c 

c 


pl=(0 .0 ,-l .0) 
cl=f lag-2.0 
c2=khh+cl*khi 

c3=sqrt((kd+x)**2+(c2+kh2)**2+kt*+2) 
c4=sqrt ( (kd+x)**2+c2**2+kt+*2) 
cB=(cexp(pl*c3)-cexp(pl*c4)) 

if (m.eq.l) then 

c6=112* (cos (kw2-kwl-x) -cos (2 . 0+kw2) ) 
c6=c6+122+(l . 0-cos (x+kwl+kw2) ) 
endlf 


if (m.eq.2) then 

if (kwl.gt.kw2) then 

c6=(l .0-cos(2.0*kw2))* (112+122) 

else 

c6=il2*(cos(kw2-kwl-x)-cos(kw2+kwl-x) ) 
c6=c6-122* (cos (kw2+kwl+x) -cos (kw2-kwl+x) ) 
endlf 


endlf 


if (m.eq.3) then 

c6=112+ ( 1 . 0-cos (x-kwl-kw2) ) 

c6=c6+122+ (cos (x+kw2-kwl ) -cos (2 . 0*kw2) ) 

endlf 


z=cB*c6*(kd+x)/ ( (kd+x)*+2+kt»* , +2) 


return 

end 


150 


subroutine zcdxx(kd,khh,kl,kw ,kh,il,i2 ,zl2) 
real il ,i2 ,kd,khh,kl,kw,kh,xl , 

+ x2,a(2) , gamma 

complex zl2,z,pl 
integer i , j , flag, ngaus 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zcdxx calculates the interaction between x-directed c 

c conductor and dielectric currents, which is Ex of the cond. c 

c current £ 

c called by: filed * 


c calls: gqld20 , fun20, gaus2, gaus6 « 

CCCCCCCCCCCCCCCCCCCCCCCCCCcCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c CALCULATE THE COHSTAITS AID IIITIALIZE 


pl=(0. 0,1.0) 

gamma=-30 . 0/ (kh+sin(2 .0*kw) ) 

a(l)=i2*cos(2.0*kw)-il 

a(2)=-i2+il*cos(2.0*kw) 

xl=0 .0 

x2=kh 

zi2=0 .0 

ngaus =6 

if (kl.gt. (3.*kh)) ngaus=2 

CALCULATE THE MUTUAL IMPED AICE 

do 10 i=1.2 
f lag=2*i-3 

call gqld20(kw,kh,kd,khh,kl,xl ,x2 ,ngaus ,f lag,z) 
zl2=zl2+z*a(i) 

10 continue 

zl2=zl2*gamma*pl 

return 

end 

GQ1D20 - CALCULATES INTEGRAL IN ONE DIMENSION 

subroutine gqld20(ks,kh,kd,khli,kl,xl,x2, ngaus ,f la*. z) 
real kd,khh,kh,kl,xl ,x2,xm,xr ,pl,p2,x(24) ,w(24) ,dx,k« 
complex z,zl,z2 
integer i,flag,ngaus 

if (ngaus . eq.2) call gaus2(x,w) 
if (ngaus. eq. 6) call gaus6(x,w) 
xm=0 . 50*(xl+x2) 
xr=0 .50* (x2-xl) 
z=0 .0 

do 10 i=l, ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun20(kw,kd,khh,kl,flag,pl,zl) 
call fun20(kw,kd,khh,kl,flag,p2,z2) 
z=z+w(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

FUN CALCULATES THE INTEGRAND OF ONE DIMENSIONAL INTEGRAL 

subroutine fun20(kw,kd,khh,kl,f lag,x,z) 
real kw,kd,khh,kl,x,cl ,c2 ,c3 ,c4 

complex z,pl 
integer flag 

cl=kl-x 
c2=(f lag)*kw 
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pl=(0. 0,1.0) 

c4=»qrt(cl**2+c3**2+khh**2) 

z=-cexp(-pl*c4)/c4 

return 

end 
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subroutine zcdxy (kd,khh,kl,kw ,kh,il , 12 , zl2) 
real 11 ,i2,kd,khh,kl,kw,kh,xl , gamma, 

+ x2,a(2) 

complex zl2,z,pl 
Integer 1, j ,flag,ngaus 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zcdxy calculates the interaction between x directed c 

c conductor and y-directed dielectric currents , c 

c which is Ey of the conductor current. c 

current c 

called by: filed, filvltn ® 

calls: kq1cL 21, fun21, gaus2, gaus6 c 

:CCCCCCCCCcCCCCCCCCCCCCCC?CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CALCULATE THE CONSTANTS AID INITIALIZE 

pl=(0. 0,1.0) 

gamma=-30 . 0/ (kh*sin( 2 . 0*kw) ) 
a(l)-i2*cos(2 .0*kw)-il 
a(2)=-i2+il*cos(2 .0*kw) 
xl=0 . 0 
x2=kh 
zl2=0 . 0 
ngaus=6 

if (kl.gt . (3.*kh)) ngaus=2 

CALCULATE THE MUTUAL IMPEDANCE 


do 10 i=l ,2 
flag=2*i-3 

call gqld21(kw,kh,kd,khh,kl,xl ,x2 ,ngaus ,f lag,z) 
zl2=zl2+z*a(i) 

10 continue 

zl2=zl2*gamma*pi 

return 

end 

GQ1D21 - CALCULATES INTEGRAL IN ONE DIMENSION 

subroutine gqld21(kw,kh,kd,khh,kl,xl,x2,ngaus,flag f z) 
real kd,khh,kh,kl,xl,x2,xra f xr,pl,p2,x(24) ,w(24) ,dx,ks 
complex z,zl,z2 
integer i,flag,ngaus 

if (ngaus.eq.2) call gaus2(x,w) 
if (ngaus.eq.6) call gausS (x,w) 
xm=0 . BO* (xl+x2) 
xr=0.B0*(x2-xl) 
z=0 . 0 

do 10 i=l ,ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun21(kw,kd,khh,kl,f lag,pl,zl) 
call fun21(kw,kd,khh,kl,flag,p2,z2) 
z=z+w(i)*(zl+z2) 

10 continue 
Z=xr* Z 
return 
end 

FUN21 CALCULATES THE INTEGRAND OF ONE DIMENSIONAL INTEGRAL 

subroutine fun21(kw,kd,khh,kl,flag,x,z) 
real kw,kd,khh,kl,x,cl ,c2,c3,c4,cS 
complex z,pl 
integer flag 
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cl=kl-x 
c2=(flag)*kw 
pl=(0. 0,1.0) 


c3=kd+c2 . . 

c4=sqrt (cl**2+c3**2+khli**2) 
c6=khh**2+cl**2 
z=khh*c«xp(-pl*c4)*c3/(c4*cB) 


ratura 

and 


subroutine zcdzz(kd,kbh|kl l kw >klv,il ,12 ,zl2) 
reel 11 ,12 ,kd,khh,kl,kw,kh,xl , gemma, 

+ x2,a(2) 

complex zl2,z,pl 
integer i,j .ngaus.flag 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zcdxz calculates the interaction between x directed c 

c conductor and z-directed dielectric currents , ~ 

c which is Ez of the conductor current. ~ 

c current c 

c called by: filed, filvlt * 

cccccccccccf ccccccccccccccf cccccclcccccccccccccccccccccccccccccccccc 

c CALCULATE THE COHSTAITS AID IIITIALIZE 

C pl=(0. 0,1.0) 

gamma=-30.0/(kh*sin(2.0*kw)) 

a(l)=i 2 *cos( 2 . 0 *kw)-il 

a(2)=-i2+il*cos(2.0*kw) 

xl=0.0 

x2=kh 

zl2=0 .0 

ngaus=6 

if (kl.gt. (3.*kh)) ngaus=2 

c CALCULATE THE MUTUAL IMPEDAHCE 

C do 10 i=l ,2 

flag=2*i-3 

call gqld22(kw,kh,kd,khh,kl,xl,x2,ngaus ,flag,z) 
zl2=zl2+z*a(i) 

10 continue 

zl2=zl2*gammaepl 

return 

end 

c GQ1D22 - CALCULATES IITEGRAL IH 0HE DIMEISIOV 

C subroutine gqld22(kw,kh,kd,khh,kl,xl ,x2,ngaus,flag,z) 


real kd,khh,kh,kl,xl ,x2 ,xm,xr ,pl ,p2,x(24T ,w(24) ,dx,kw 
complex z,zl,z2 
integer i ,f lag,ngaus 

i 1 (ngaus.eq.2) call gaus2(x,w) 
if (ngaus . eq. 6) call gaus6(x,w) 
xm=0 . 80* (xl+x2) 
xr=0.60*(x2-xl) 
z=0 .0 

do 10 i=l, ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun 22 (kw,kd,khh,kl,flag,pl ,zl) 

call fun22(kw,kd,khh,kl,flag,p2,z2) 

z=z+w ( i ) * ( zl +z2 ) 

continue 

z=xr*z 

return 

end 

FUH22 CALCULATES THE INTEGRAND OF ONE DIMENSIONAL INTEGRAL 

subroutine fun22(kw ,kd,khh f kl ,f lag,x ,z) 
real kw,kd,khh,kl,x, cl ,c2,c3,c4,c6 
complex z ,pl 
integer flag 

cl=kl-x 
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c2=(flag)+kw 
pi=(o .0 , i . o) 
c3=kd+c2 

c4=sqrt(cl**2+c3**2+khh**2) 

c6=khh**2+cl+*2 

z=cl*c«xp(-pl*c4)*c3/ (c4*c5) 

return 

end 
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subroutine zcdzx(kd,khh,kl,kw ,kh,il » 12 »z!2) 
real il ,12 ,kd,khh ,kl,kw,kh, xl , 

+ x2 ,a(2) , gamma 


complex zl2,z,pl 
integer i, j ,flag,ngaus 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

- Subroutine zcdzx calculates the interaction between z-directed c 
conductor and x-directed dielectric currents, c 

which is Ex of the conductor current. c 

current g 

called by: filed « 


ccccccccccclcccccccccccccclcccccclcccccccccccccccccccccccccccccccccc 

CALCULATE THE CONSTANTS AID IIITIALIZE 


pl=(0. 0,1.0) 

garama=-30 .0/(2. 0*kw*sin(kh) ) 

a(l)=i2*cos(kh)“il 

a(2)=-i2+il*cos(kh) 

xl=-kw 

x2=-xl 

zl2=0 .0 

ngaus=6 

if (kd.gt . (3 . *kw) ) ngaus=2 


CALCULATE THE MUTUAL IMPEDANCE 

do 10 i=l ,2 
flag=i 

call gqld23(kw,kh l kd > khh,kl,xl ,x2,ngaus ,f lag,z) 
zl2=z!2+z*a(i) 

10 continue 

zi2=zl2*gamma*pl 

return 

end 

GQ1D23 - CALCULATES INTEGRAL IN ONE DIMENSION 

«ubr out in® gqld23 (ks , kh , kd , khh , kl , xl , x2 , naans , 1 lag , z ) 
real kd.khh.kh.kl.xl ,x2 ,xm,xr ,pi ,p2,x(24) ,*(24) ,dx,k* 
complex z,zl,z2 
integer i,flag,ngaus 

if (ngaus.eq.6) call gaus6(x,w) 
if (ngaus.eq.2) call gaus2(x,w) 
xm=0 .50*(xl+x2) 
xr=0 . 60* (x2-xl ) 
z=0 . 0 

do 10 i=l ,ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun23(kh,kd,khh,kl,flag,pl,zl) 
call fnn23(kh,kd,khh,kl,flag,p2,z2) 
z=z+s(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

FUN23 CALCULATES THE INTEGRAND OF ONE DIMENSIONAL INTEGRAL 

subroutine fun23(kh,kd,khh,kl,f lag,x,z) 
real kh,kd f khh,kl,x,cl ,c2 ,c3 ,c4,cS 
complex z,pl 
integer flag 

cl=kd-x 
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c2=(flag-2)*kh 
pl=(0 .0,1.0) 

c4=«qrt(cl**2+c3**2+khh**2) 
cB=cl**2+khh**2 4 

*=cl*ceiD(-pl*c4)*c3/ (c4*c6) 


return 

end 
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subroutine zcdzy (kd,khh,kl ,kw ,kh»il , i2 >zl2) 
real il,i2,kd,khh,kl f kw,kh > xi, 

+ x2,a(2) , gamma 

complex zl2,z,pl 
integer i , j ,f lag, ngaus 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zcdzy calculates the interaction between z-directed c 


c conductor and y— directed dielectric currents , 
c which, is Ey of the conductor current. 

c current 
c 

c , 

c calls: gqld25 , f un26 , gaus2, gaus6 

- ” ^cccccccc 


c 

c 

c 


c 

c 

c 


called by: filed, filvltn 
r calls : crald2S . Iini25 , sausz • krupo 

cccccccccccScccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c CALCULATE THE COHSTAITS AID IIITIALIZE 

pl=(0. 0,1.0) 

ganuna=-30 .0/(2. 0*kw*sin(kh) ) 
a(l)=i2*coa(kh)-il 
a(2)=-i2+il*cos(kh) 
xl=-kw 
x2=-xl 
zl2=0 .0 
ngaus=6 

if (kd.gt . (3.*kw)) ngaus=2 

CALCULATE THE MUTUAL IMPED AICE 

do 10 i=l,2 
f lag=i 

call gqld26(kz,kh,kd,kbh,kl,xl , x2, ngaus, f lag, z) 
zl2=zl2+z*a(i) 

10 continue 

zl2=zl2*gamma*pl 
return 
end 

6Q1D25 - CALCULATES IITEGRAL II 0IE DIMEISI0I 

subroutine gqld25(ku ,kh,kd,khb,kl ,xl ,x2 ,ngaus ,flag,z) 
real kd,khh,kh,kl,xl,x2,xm,xr,pl,p2,x(24) ,w(24) ,dx,kv 
complex z,zl,z2 
integer i ,f lag, ngaus 

if (ngaus.eq.2) call gaus2(x,w) 
if (ngaus. eq. 6) call gaus0(x,w) 
xm=0.B0*(xl+x2) 
xr=0.B0*(x2-xl) 
z=0 .0 

do 10 i=l, ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun2B(kh,kd,khh,kl,f lag,pl,zl) 
call fun2B(kh,kd,khh,kl,flag,p2,z2) 
z=z+w(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

FUH2B CALCULATES THE IITEGRAID OF 0HE DIHEISIOHAL IITEGRAL 

subroutine fun2B(kh,kd,khh,kl,f lag,x ,z) 
real kh,kd,khh,kl,x,cl ,c2,c3 ,c4 
complex z,pl 
integer flag 

cl=kd-x 


c 

c 

c 
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c2= (flag-2) *kh 
pl=(0 .0 ,1 .0) 

c3=kl+c2 , 

c4=»qrt(cl**2+c3**2+khh+*2) 

z=khh*caxp(-pl*c4)*c3/(c4*(cl**2+kWi**2)) 

return 

end 
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subroutine zcdzz(kd,khh,kl,kw ,kh,il , i2 ,zl2) 
real il ,i2,kd,khh,kl f kw,kh,xi, 

+ x2,a(2) , gamma 

complex zl2,z,pl 
integer i,j ,f lag,ngaus 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zcdzz calculates the interaction between z-directed c 

c conductor and dielectric currents, which is Ez of the cond. c 

c current g 

c called by: filed, filvlt c 

c calls: gqld26, fun26, gaus2, gaus6 c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c CALCULATE THE CONSTANTS AID IMITIALIZE 

pl=(0. 0,1.0) 

gamma=-30 .0/(2. 0*kw*sin(kh) ) 

a(l)=i2*cos(kh)-il 

a(2)=-i2+il*cos(kh) 

xl=-kw 

x2=-xl 

zl2=0 .0 

ngaus=6 

if (kd.gt . (3 .♦kw) ) ngaus=2 

c CALCULATE THE MUTUAL IMPED AICE 

C do 10 1=1,2 

flag=i 

call gqld26(kv,kh,kd,khh,kl > xl,z2,zigaua , flag, a:) 
zl2=zl2+z*a(i) 

10 continue 

zl2=zl2*gamma*pl 

return 

end 

c GQ1D26 - CALCULATES INTEGRAL IN ONE DIMENSION 

subroutine gqld26(kw,kh,kd,khh,kl,xl,x2,ngaus,flag,z) 
raal kd,khh,kh,kl,xl,x2,xm,xr,pl,p2,x(24) ,w(24) ,dx,ka 


complex z,zl,z2 
integer i,flag,ngaus 

if (ngaus.eq.2) call gaus2(x,w) 
if (ngaus.eq.6) call gaus6(x,w) 
xm=0.50*(xl+x2) 
xr=0.50*(x2-xl) 
z=0 .0 

do 10 i=l,ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call fun26(kh,kd,khh,kl,flag,pl,zl) 
call fun26(kh,kd,khh,kl,flag,p2,z2) 
z=z+w(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

FUN26 CALCULATES THE INTEGRAND OF ONE DIMENS I0HAL INTEGRAL 

subroutine fun26(kh,kd,khh v kl v flag,x,z) 
real kh,kd,khh,kl,x,cl ,c2,c3,c4 
complex z,pl 
integer flag 

cl=kd-x 

c2=(f lag-2 )*kh 
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pl=(0. 0,1.0) 

c3=kl+c2 

c4=»qrt (cl**2+c3**2+khh**2) 

z=-cexp(-pl*c4)/c4 

return 

end 


162 



to OO o oo 


subroutine zdcxx(klx ,kly ,klz ,kd,khh,kl ,kw ,kh,il ,12 ,zl2) 

real il,i2,kd,khh,kl,kw,kh,klx,kly,klz,rx,rz 

complex zl2,z,pl 

integer i,j ,flag,nx,nz,napp,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zdcxx calculates the interaction between x-directed c 
c conductor and dielectric currents. § 

c called by: fildc ® 

cccccccicicccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE COHSTAITS AID IHITIALIZE 

pl=(0. 0,1.0) 
zX2-0 . 0 

if (abs(kl-0.5*kh) .It. (2.0*kh)) then 
m=4 

if (abs(kd) .gt. (4.*kw)) m=3 
if (abs(kd) .gt. (8.*kw)) m=2 
if (abs(kd) .gt. (12.*kw)) m=l 
endif 

if ( abs (kl-0 . B*kh) . gt . ( 2 . 0*kh) ) m=3 
it (abg(kl-0.B*kh) .gt . (4.0*kh) ) m*2 
it (abs (kl-0 . B*kh) . gt . (6 . 0*kh) ) m=l 
it (klx.ge.klz) than 
napp=int (klx/klz+0 . 6 ) 

nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . B) 
nx=m 

nz-m*napp 
endif 

CALCULATE THE MUTUAL IMPEDANCE 


do 10 i=l ,nx 
do 10 j=l ,nz 

rx=kd-klx/2 . + ( i-0 . B) *klx/nx 
rz=kl-klz/2 . + ( j -0 . 6 ) *klz/nz 
call zcdxx(rx,khh,rz,kw,kh,il,i2,z) 
zl2=zl2+z*klx*klz*kly/(nx*nz) 

10 continue 

z!2=-zl2/ (kly+klz) 

return 

end 
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subroutine zdcxy (klx ,kly ,klz ,kd»khh,kl ,kw ,kh f il , i2 »zl2) 

real il ,i2,kd,khh,kl,kw,kh,klx,kly ,klz f rx,rz 

complex zl2,z,pl 

integer i , j ,flag,nx,nz ,napp,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zdcxy calculates the interaction between x-directed c 

c conductor and y-directed dielectric currents . 

c called by: fildc 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c CALCULATE THE CONSTANTS AND INITIALIZE 


c 

c 

c 


pl=(0. 0,1.0) 

if ^ (abs (kl-0 . B*kh) .It . (2.0*kh) ) then 

m -4 

il (aba(kd) .gt . (4 . *kw) ) m=3 
if (abs(kd) .gt.(8.*kw)) m=2 
if (aba(kd) .gt. (12.*kw)) m=l 

endif . . 

if (abs(kl-0 ,B*kh) .gt . (2.0+kh) ) m=3 

if (abs (kl-0 . B*kh) .gt . (4 .0*kh) ) m=2 
if (abs(kl-0.B*kh) .gt . (6 .0*kh)) m=l 
if (klx.ge.klz) then 
napp=int (klx/klz+0 . B) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . B ) 
nx=m 

nz=m*napp 

endif 

CALCULATE THE MUTUAL IMPEDANCE 

do 10 i=l ,nx 
do 10 j=l ,nz 

rx=kd-klx/2 . + ( i-0 . B ) *klx/nx 
rz=kl-klz/2 . + ( j -0 . B ) *klz/nz 

call zcdxy(rx,fchh,rz,kw,kh,il,i2,z) 
z! 2 =zl 2 +z+klx*klz*kly/(nx*nz) 


10 continue 

zl2=-zl2/ (klx*klz) 

return 

end 
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aubrout ine zdcxz ( klx , kly , klz , kd , khh , kl , kw ,kh , il , i2 , zl2 ) 
real il,i2,kd,khh,kl,kw,kh,klx,kly,klz,rx,rz 
complax zl2,z,pl 
integer i,j,flag,nx,nz,napp,m 

Ccccc iS^t c ^z c SSr c c 2£^ 

conductor uid. z-directed dielectric currents. ^ 

called by: fildc £ 

cccccciciccccclcccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE COHSTAHTS AID IHITIALIZE 

pl=(0. 0,1.0) 
if 2 (abs(kl-0.6*kh) .It. (2.0*kh)) than 

m= 4 

If (abs(kd) .gt . (4.*kw) ) m=3 
If (abs(kd) .gt. (8.*kw)) m=2 
if (aba(kd) .gt . (12.*ke) ) m=l 

endif , . . 

if (abs(kl-O.B*kh) .gt . (2.0*kh) ) m=3 

if (abe(kl-0 .B*kh) .gt . (4.0*kh)) m=2 
if ( abs (kl-0 . B*kh) . gt . (6 . 0*kh) ) m=l 
if (klx.ge.klz) then 
napp-int (klx/klz+0 . B) 
nz=m 

nx=m+napp 

else 

napp-int (klz/klx+0 . B ) 
nx«m 

nz=m+napp 

endif 

c CALCULATE THE MUTUAL IMPED AICE 

c 

do 10 i=l,nx 
do 10 j=l ,nz 

rx=kd-klx/ 2 . + ( i-0 . 6 ) *klx/nx 
rz=kl-klz/2 . + ( j -0 . 6) *klz/nz 

call zcdxz(rx,khh,rz,kw,kh,il,i2,z) 

zl2=zl2+z*klx*klz*kly/ (nx*nz) 

10 continue 

zl2=-zl2/ (klxfkly ) 

return 

and 
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subroutine zdczx(klx ,kly ,klz ,kd,khh,kl ,kw,kh,il ,i2,zl2) 

real il,i2,kd,khh,kl,kw,kh,klx,kly,klz,rx,rz 

complex zl2,z,pl 

integer i, j ,f lag,nx,nz,napp,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Subroutine zdczx calculates the interaction between z directed c 
conductor and x-directed dielectric currents. c 

called by: fildc * 

ccccccccic?Scc?cccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE COHSTAHTS AHD IHITIALIZE 


c 

c 

c 


10 


pl=(0. 0,1.0) 
zl2=0.0 

il (abs(kd) .It. (4.0*kw)) then 

i f (abs(kl-0.B*kh).gt.(2.0*kh)) 
if (abs(kl-0.6*kh).gt.(4.0*kh)) 
if (abs(kl-0.B*kh).gt.(6.0*kh)) 
endif 

if (abs(kd) .gt. (4.*kw)) m=3 
if (abs(kd) .gt. (8.*kw)) m=2 
if (abs(kd) .gt.(12.*kw)) m=l 
if (klx.ge.klz) then 
napp-int (klx/klz+0 . B) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . B ) 
nx=m 

nz=m*napp 

endif 


m=3 

m=2 

m=l 


CALCULATE THE MUTUAL IMPEDANCE 


do 10 i=l ,nx 
do 10 j=l ,nz 

rx=kd-klx/2 . + ( i-0 . B ) *klx/nx 
rz=kl-klz/2 . + ( j -0 . B) *klz/nz 
call zcdzx(rx,khh,rz,kw,kh,il,i2,z) 
zl2=zl2+z*klx*klz*kly/ (nx*nz) 
continue 

zl2=-zl2/(kly*klz) 

return 

end 
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subroutine zdczy (klx ,kly ,klz ,kd,khh f kl ,kv t kh f il ,i2,zl2) 

real il , i2 ,kd,khh ,kl ,kw , kh,klx ,kly ,klz ,rx ,rz 

complex zl2,z,pl 

integer i , j ,flag,nx,nz,napp,m 

conductor and y— directed dielectric currents. 


called by: lildc 


calls ! zcdzv 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


CALCULATE THE COISTAITS AID IIITIALIZE 


c 

c 

c 


10 


pl=(0. 0,1.0) 
z!2=0 .0 

ii (abs(kd) .It. (4.0*kw)) than 


if (abs(kl-0.6*kh) .gt . (2 .0*kh) ) 
if (abe(kl-0.6*kh).gt.(4.0*kh)) 

if (abs(kl-0.6*kh).gt.(6.0*kh)) 


if (abs(kd) .gt.(4.*kw)) m=3 
if (aba(kd) .gt.(8.*kw)) m=2 
if (abe(kd) .gt. (12.*kw)) m=l 
if (klx.ge.klz) than 
napp=int (klx/klz+0 .6) 
nz=m 

nx=m*napp 

else 

napp-int (klz/klx+0 .6) 
nx=m 

nz=m*napp 

endif 


m=3 

m=2 

m=l 


CALCULATE THE MUTUAL IMPEDANCE 


do 10 i=l ,nx 
do 10 j=l ,nz 

rx=kd-klx/2 . +(i-0.B)*klx/nx 

rz=kl-klz/2 . + ( j -0 . 6) *klz/n z 

call zcdzy(rx,khh,rz,kw,kh,il,i2,z) 

zl2=zl2+z*klx*klz*kly/(nx*nz) 

continue 

zl2=-zl2/(klx*klz) 

return 

end 
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subroutine zdczz(klx ,kly ,klz ,kd,khh,kl,kw ,kh,il ,12,zl2) 
real 11 , i2,kd f khh > kl > kw,kh f klx,kly ,klz,rx,rz 
complex zl2,z,pl 
integer 1, j »flag»nx,nz 9 napp,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

/• ^rrmt-inn xd czz calculates the interaction between z-directed 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCcgggtv^^^wv^v^vvvvvwvvv 

Subroutine zdczz calculates the interaction between z-directed 
conductor and dielectric currents. 

called by: tilde 

calls: zcdzz 


V. 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE COISTAHTS AID INITIALIZE 


pl=(0. 0,1.0) 
zl2=0 .0 

if (abs(kd) .It . (4.0*kw) ) then 
m=4 

if (abs(kl-0.6*kh).gt.(2.0*kh)) 
if (abs(kl-0.6*kh).gt.(4.0*kh)) 
if (abs(kl-0.B*kh) .gt.(6.0*kh)) 
endif 

if (abs(kd) .gt . (4.*kw)) m*3 
if (aba (kd) .gt . (8.*kw)) m=2 
if (aba(kd) .gt. (12.*kw)) m*l 
if (klx.ge.klz) than 
napp=int (klx/klz+0 . B) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . 6) 
nx-m 

nz=m*napp 

endif 


m=3 

m=2 

m=l 


CALCULATE THE MUTUAL IMPEDAHCE 


10 


do 10 i=l ,nx 
do 10 j=l ,nz 

rx=kd-klx/2 . + ( i-0 . B ) *klx/nx 
rz=kl-klz/2 . + ( j -0 . B)*klz/nz 
call zcdzz(rx,khh,rz,kw,kh,ii ,12, z) 
zl2=zl2+z*klx*klz*kly/ (nx*nz) 
continue 

zl2=-zl2/(klx*kly) 

return 

end 
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subrout ins zxx (klx , kly , klz , kd , khh , kl , z 1 2 ) 
real klx, kly ,klz ,kd,khh, 

+ gamma, xl ,x2,yl ,y2,zl ,z2,kl,r,rc 

complex zl2,z,pl 

integer i »' fc YP * j ,k,flag,app,nx,nz ,napp,m,ml 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zxx calculates the interaction between x-directed c 

c dielectric currents, which is Ex of x-directed dielectric c 

c current g 

c called by: fildd c 

c calls: zxxapp, gq3dxx, fun3xxl, gq2ddxx, fun2xx, fun2xx2, c 

c fun2xx3, gaus6 c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c CALCULATE THE COISTAITS AID IIITIALIZE 
typ=0 

pl=(0. 0,1.0) 
gamma=30 . 0 
zl2=0 .0 
app=l 

rc=aqrt (klx**2+klz**2+kly**2) 

C IT ((abs(kd) .It. klz) .and. (abs(kl) .It. klz)) typ=l 
c if typ=l use ganaral form no approximation - nsad onca 
xl=-klx/2.0 
x2=-xl 
yl=-kly/2 .0 
y2=-yl 
zl=-klz/2.0 
z2=-zl 

r=sqrt(kd**2+khh**2+kl**2) 

m=4 

if (r .gt . (3 . *rc)) m=3 
if (r .gt . (6.*rc)) m=2 
if (r .gt . (9.*«rc)) m=l 
if (klx. ge. klz) then 
napp=int (klx/klz+0 . S) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . 6) 
nx=m 

nz=m+napp 

endif 

c CALCULATE THE MUTUAL IMPEDANCE 
c 

if ( (app.eq. 1) .and, (typ.eq.O) ) then 
c use approximate interaction 

call zxxapp (kd, khh ,kl ,klx ,kly ,klz ,nx ,nz ,zl2) 
else 

c use general form 

if (typ.eq.O) then 

call gq3ddxx(khh,kl ,kd,z ,typ,f lag.xl ,x2 ,yl ,y2,zl ,z2) 

z!2=zl2+z 
f l*g-4 

call gq2ddxx(klx,kly ,klz ,khh,kl,kd,z,typ,flag 9 yl ,y2 ,zl ,z2) 
zl2=zi2+z 

call gq3ddxx(khh,kl,kd,z,typ,flag,xl ,x2,yl,y2,zl ,z2) 
zl2=zl2+z 

flag® 1 . 

call gq2ddxx(klx,kly , klz, khh, kl,kd,z,typ, flag, yl,y2,zl,z2) 

zl2=zl2+z 

flag=2 
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c 


call gq2ddxx (klx , kly ,klz ,khh , kl , kd ,z , typ , 1 lag ,xl ,x2 , zl , z2 ) 

zl2=zl2+z 

liag=3 

call gq2ddxx(klx,kly,klz,khh,kl,kd,z,typ,flag,xl,x2,yi,y2) 
zl2=zl2+z 
f lag=4 

call gq2ddxx(klx, kly ,klz, khh, kl,kd,z,typ, flag, yl,y2,zl,z2) 


zl2=zl2+z 

endif 

endif 


zl2=zl2*gamma 

return 

end 


subr out ine zxxapp ( kd , khh , kl , klx , kly , klz ,nx ,nz , z!2 ) 
real kd,khh,kl,klx,kly ,klz,d,l,r ,cx 
complex zl2,pl 
integer nx,nz,i,j 

calculates approximate interaction 
zl2=0 . 0 
pl=(0. 0,1.0) 
do 10 i=l,nx 
do 10 j=l ,nz 

d*kd+klx/2 . 0+ (0 . 6-i) *klx/nx 
l=kl+klz/2 . 0+ (0 . 5- j ) *klz/nz 
r=sqrt (d*+2+khh**2+l**2) 

cx=d/r v v . . . 

zl2=zl2+(l-cx**2+pl/r*(l-pl/r)*(3*cx**2-l) )*cexp(-pl*r)/r 
10 continue 

zl2=-pl+zl2*klx*klz*kly/(nx*nz) 

return 

end 


c 


GQ3DDII - CALCULATES INTEGRAL IN THREE DIMENSIONS 

subrout ine gq3ddxx (khh , kl ,kd , z , t yp , f lag , xl , x2 , y 1 , y2 , s 1 , s2 ) 
real kd,khh,kl,xl,x2,xm,xr,pl ,p2,ql,q2,x(24) ,w(24) ,dx,dy, 

+ yl ,y2,ym,yr ,sl ,s2,ds , sm,sr ,rl ,r2 

complex z,zl ,z2,z3,z4,zB,z6,z7,z8 
integer j ,i ,k,typ,f lag 


call gaus6(x,w) 
xm=0.50*(xl+x2) 
xr=0.50*(x2-xl) 
ym=0.B0*(yl+y2) 
yr=0 .60+(y2-yl) 
sm=0.60*(sl+s2) 
sr=0 ,60*(s2-sl) 


z=0 .0 

do 10 i=l ,6 
ds=sr*x(i) 
rl=sm+ds 
r2=sm-ds 
do 20 j =1,6 


dy=yr+x( j ) 


pl=ym+dy 

p2=ym-dy 


do 30 k=l ,6 
dx=xr*x(k) 
ql=xm+dx 
q2=xm-dx 

call fun3xxl(kd,khh,kl,rl ,pl ,ql,zl ,typ) 
call fun3xxl(kd,khh,kl,rl ,pl ,q2,z2 ,typ) 
call fun3xxl(kd,khh,kl,rl ,p2,ql ,z3,typ) 
call fun3xxl(kd,khh,kl,rl ,p2,q2,z4,typ) 
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call fun3xxl (kd ,khh ,kl , r2 ,pl , ql , zB , typ) 
call f un3xxl (kd ,khh ,kl , r2 ,pl ,q2 , z6 , typ) 
call fun3xxi (kd,khh,kl ,r2 f p2 ,ql ,z7 f typ) 
call tun 3xxl ( kd ,khh , kl , r2 ,p2 , q2 , z8 , typ ) 

z=z+w(i)*w( J)*w(k)*(zl+z2+z3+z4+zB+z6+z7+z8) 


continue 

continue 

continue 

z=xr*yr*sr+z 


return 

end 


FUN3XX1 CALCULATES INTEGRAND OF THREE DIM. IITEGRAL 


subroutine funSxxl (kd,khh,kl , z , y , x ,zz ^ typ) 
real kd,khh,kl,cl ,x,y,z 
complex zz,pl 
integer typ 


CALCULATE THE RELATED PARAMETERS 


pl= (0 .0 ,-1 .0) 

cl=sqrt ( (kd-x) **2+ (khh-y ) **2+ (kl-z) **2) 
CALCULATE THE IITEGRAHD 


if (typ.eq.O) then 
zz=pl*cexp(pl*cl)/cl 
else v J 

zz=cexp(pl*cl)/2.0 

endif 

return 

end 

GQ2DDXI - CALCULATES INTEGRAL IN TWO DIMENSIONS 

subroutine gq2ddxx(klx ,kly , klz t khh t kl ,kd r z , typ 9 flag »xl f x2 ,yl »y2) 
real kd.xl ,x2, xm.xr.pl ,p2 ,ql ,q2,x(24) ,w(24) ,dx,dy , 

+ yl ,y2,ym,yr,klx,kly,klz,khh,kl 

complex z,zl 9 z2,z3,z4 
integer typ,j,i,flag 

call gaus6(x,w) 
xm=0 . B0*(xl+x2) 
xr=0.B0*(x2-xl) 
ym=0.B0*(yl+y2) 
yr=0.B0*(y2-yl) 
z=0.0 

do 10 i=l ,6 
dy=yr+x(i) 
ql=ym+dy 
q2=ym-dy 
do 20 j=l,6 
dx=xr*x( j) 
pl=xm+dx 
p2=xm-dx 

call f un2xx(khh,kd,kl,typ .flag ,klx ,kly ,klz ,ql ,pl ,zl) 
call f un2xx (khh.kd.kl , typ .flag ,klx ,kly ,klz ,ql ,p2 ,z2) 
call f un2xx (khh.kd ,kl , typ .flag ,klx ,kly ,klz ,q2 ,pl ,z3) 
call fuii 2 xx(ktoh,kd,kl, typ, flag, klx.kly, klz, q2,p2,z4) 
z=z+w(i)*w( j)*(zl+z2+z3+z4) 

20 continue 
10 continue 
z=xr+yr*z 
return 
end 

FUN2XX CALCULATES THE INTEGRAND OF DOUBLE INTEGRAL 
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subroutine fun2xx (khh , kd ,kl , typ , flag ,klx ,kly ,klz , q,p , 
real kd,kl,khh,klx,kly,klz,x,y ,z ,el,c2,q,p 
complex zz,pl,zp 
integer typ, flag, i 

pl=(0 .0,1.0) 
zz=0.0 

do 10 i=-l ,1,2 

if (flac.eq.l) then 
x=kd- ( i ) *klx/ 2 . 0 
y=khh-p 
z=kl-q 

call f un2xx2 (x , y , z , zp) 

zz=zz+zp+x*(i) 

endif 

if (flag.eq.2) then 
x=kd-p 

y =khh- ( i ) *kly / 2 . 0 
z=kl-q 

call fun2xx2(x,y ,z ,zp) 

zz=zz+zp*y*(i) 

endif 

if (flag.eq.3) then 

x=kd-p 

y=khh-q 

z=kl-(i)*klz/2.0 
call fun2xx2 (x , y , z , zp) 
zz=zz+zp*z*(i) 
endif 

if (flag.eq.4) then 
x=kd- ( i ) *klx/2 . 0 
y=khh-p 
z=kl-q 

call f un2xx3 (x , y , z , zp) 

zz=zz+zp*x*(i) 

endif 

continue 

return 

end 

subroutine fun2xx2(x,y ,z,zp) 

real x,y,z,cl 

complex zp,pl 

pl=(0. 0,1.0) 

cl=sqrt(x**2+y**2+z**2) 

zp=pl*cexp(-pl*cl)/(2.0*cl) 

return 

end 

subroutine fun2xx3(x,y ,z ,zp) 

real x,y,z,cl 

complex zp,pl 

pl*(0 .0 , 1 .0) 

cl=sqrt (x**2+y**2+z**2) 

zp=cexp(-pl*cl)*((1.0/cl**2)-(pl/cl*+3)) 

return 

end 
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subroutine zxy (klx,kly ,klz ,kd,khh,kl,zl2) 
real klx,kly ,klz ,kd,khh,kl,r ,rc , 

+ gamma, xl ,x2,yl f y2,zl ,z2 

complex zl2,z,pl 

integer i,typ, j ,k ,app ,nx,nz ,napp ,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zxy calculates the interaction between x-directed c 

c and y-directed dielectric currents, which is Ey of c 

x-directed dielectric current c 

called by: fildd £ 

calls: zxyapp , gqidxy, funlxy, fun2xy, gaus6 c 

scccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE CONSTANTS AMD INITIALIZE 

pl=(0. 0,1.0) 
gamma=-30 .0 
zi2=0.0 

approximate form is used to save time 
app=l 

r=sqrt (kd**2+khh**2+kl**2) 
rc=sqrt (klx**2+kly**2+klz**2) 
m=4 

if (r .gt . (3 ,*rc)) m=3 
if (r .gt . (6. ♦re)) m=2 
if (r.gt.(9.*rc)) m=l 
if (klx.ge.klz) then 
napp=int vklx/klz+0 .6) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 .S) 
nx=m 

nz=m*napp 
endif 

CALCULATE THE MUTUAL IMPEDANCE 


if ( app . eq . 1 ) then 
c use approximate interaction 

call zxyapp ( kd , khh , kl , klx ,kly ,klz ,nx ,nz ,z) 
else 

c use general form 
zl“-klz/2.0 
z2--zl 

call gqidxy (khh, kl,kd,z,zl,z2 ,klx,kly ,klz) 
endif 

z 1 2 -z *gamma*p 1 

return 

end 

subroutine zxyapp(kd,khh,kl,klx,kly ,klz,nx,nz,zl2) 
real kd,khh,kl,klx,kly ,klz,d,l,r ,cx,cy 
complex zl2,pl 
integer nx,nz,i,j 

c calculates approximate interaction 
zl2=0 . 0 
pl=(0. 0,1.0) 
do 10 i=l,nx 
do 10 j=l,nz 

d=kd+klx/2 . 0+ ( 0 . S-i ) ♦klx/nx 
l=kl+klz/2 .0+(0 .S- j )*klz/nz 
r = s qr t ( d+ * 2 +khh* * 2 + 1 * * 2 ) 
cx=d/r 
cy=khh/r 
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zl2=zl2+cx*cy*(-l+(3^1/r)*(l-pl/r))*cexp(-pl*r)/r 

10 continue . 

zl2=zl2*klx*klz*kly/(nx*nz) 
return 
end 

GQ1DIT - CALCULATES INTEGRAL IN ONE DIMENSION 

subroutine gqldxy (khh,kl ,kd,z , xl , x2,klx f kly 9 klz) 
real kd,xl ,x2 ,xm,xr ,pl ,p2 ,x(24) ,w(24) ,dx, 

+ klx , kly , klz , khh , kl 

complex z,zl,z2 
integer j,i,ngaus 


10 


c 


10 


c 


c 


ngaus=6 

call gaus6(x,w) 
xm=0 . 60+(xl+x2) 
xr=0 . 60* (x2-xl ) 
z=0 .0 

do 10 i=l ,ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call lunlxy (khh ,kd ,kl , klx ,kly ,klz ,pl , zl ) 

call lunlxy (khh, kd,kl, klx, kly ,klz ,p2 ,z2) 

z=z+w(i)*(zl+z2) 

continue 

z=xr*z 

return 

end 

FUN1IT CALCULATES INTEGRAND OF ONE DIM. INTEGRAL 

subroutine lunlxy ( khh, kd,kl , klx, kly ,klz ,z ,zz) 
real kd,kl,khh,klx,kly ,klz,x,y ,z,zl 
complex zz,pl,zp 
integer i,j 


pl=(0. 0,1.0) 

zz=0.0 

zl=kl-z 

do 10 i=l ,2 

do 10 j = l ,2 

x=kd-(2*i-3)*klx/2 .0 

y=khh-(2+j -3) +kly /2 . 0 

call lun2xy(x,y ,zl ,zp) 

zz=zz+zp*(2*i-3)*(2*j-3) 


continue 

return 

end 


subroutine lun2xy (x,y ,z,zp) 
real x,y,z,cl 
complex pi ,zp 

pl=(0. 0,1.0) 

cl=sqrt (x**2+y**2+z**2) 

zp=cexp(-pl*ci)/cl 

return 

end 
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subroutine zxz(klx ,kly ,klz ,kd,khh,kl , zl2) 
real klx.kly ,klz,kd,khh,r,rc, 

+ gamma, xl,x2,yl,y2,zl,z2,kl 

complex zl2,z,pl 

integer i, j ,k,app,nx,nz,napp,m 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Subroutine zxz calculates the interaction between x-directed c 

and z-directed dielectric currents, which is Ez of c 

x-directed dielectric current § 

called by: fildd ® 

calls : zxzapp , gqldxz , funlxz , iun2xz , gaus6 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE CONSTAHTS AID IIITIALIZE 

pl=(0. 0,1.0) 
gamma=-30 . 0 

zl2=0.0 . _ . . 

c approximate form is used to save time 

app=l 

C r=sqrt(kd**2+khh**2+kl**2) 

rc=sqrt (klx**2+kly**2+klz**2) 
m=4 

if (r.gt.(3.+rc)) m=3 
if (r.gt . (6.*rc)) m=2 
if (r.gt.(9.*rc)) m=l 
if (klx.ge.klz) then 
napp-int (klx/klz+0 . B) 
nz=m 

nx=m*napp 

else 

napp-int (klz/klx+0 . 6) 
nx=m 

nz=m*napp 

endif 

c CALCULATE THE MUTUAL IMPEDAHCE 
c 

if (app.eq.l) then 
c use approximate interaction 

call zxzapp(kd,khh,kl,klx,kly ,klz ,nx,nz,z) 
else 

c use general form 
yl=-kly/2.0 
y2=-yl 

call gqldxz (khh.kl ,kd,z ,yl ,y2 ,klx ,kly ,klz) 
endif 

zl2 s z*gamma*pl 

return 

end 

subroutine zxzapp(kd,khh,kl t klx,kly »klz,nx,nz,zl2) 
real kd , khh , kl , klx , kly , klz , d , 1 , r , cx , cz 
complex zl2,pl 
integer nx,nz»i,j 

c calculates approximate interaction 
zl2=0 .0 
pl=(0 . 0,1.0) 
do 10 i=l,nx 
do 10 j=l ,nz 

d=kd+klx/2 . 0+ ( 0 . B-i ) *klx/nx 
l=kl+klz/2 . 0+ ( 0 . B- j ) +klz/nz 
r=sqrt (d**2+khh**2+l**2) 
cx=d/r 
cz=l/r 
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zl2=zl2+cx*cz*(-l+3*pl/r*(l-pl/r))*c«xp(-pl*r)/r 

zl2=zl2*klx*klz*kly/ (nx*nz) 


return 
end 

GqiDIZ - CALCULATES INTEGRAL IN ONE DIMENSION 
subroutine gqldxz (khh ,kl ,kd, z ,xl ,x2 ,klx ,kly ,klz) 
real kd,xl,x2,xm,xr,pl,p2,x(24) ,w(24) ,dx, 

+ klx ,kly ,klz ,khh,kl 

complex z,zl ,z2 
integer j,i,ngaus 

ngaus=6 

call gaus6(x,w) 
xm=0.60*(xl+x2) 

xr=0.S0*(x2-xl) 
z=0 .0 

do 10 i=l,ngaus 
dx=xr*x(i) 
pl=xm+dx 

p2=xm-dx ^ . 

call iunlxz(khh,kd,kl,klx,kly >klz t pl ,xl) 

call t unlxz (khh ,kd ,kl , klx , kly , klz ,p2 , z2 ) 
z=z+w(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

C FUN1XZ CALCULATES INTEGRAND OF ONE DIM. INTEGRAL 

6 subroutine funlxz(khh,kd,kl,klx,kly,klz,y,zz) 

real kd,kl,khh,klx,kly,klz,x,y,z,yl 
complex zz,pl,zp 
integer i,j 

pl=(0 .0,1.0) 

zz=0 .0 

yl=khh-y 

do 10 i-1 ,2 

do 10 j=l ,2 

x=kd- (2*i-3) *klx/2 . 0 

z=kl-(2* j-3)*klz/2 . 0 
call lun2xz(x,yl,z,zp) 
zz=zz+zp* (2*i-3)*(2* j-3) 

10 continue 
return 
end 

C subroutine lun2xz(x,y ,z,zp) 

real x,y,z,cl 
complex pl,zp 

pl=(0. 0,1.0) 

cl=sqrt (x**2+y**2+z**2) 

zp=cexp ( -pl*cl ) /cl 

return 

end 
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subroutine zyy (klx ,kly ,klz ,kd,khh,kl ,zl2) 
real klx ,kly ,klz ,kd,khh,r ,rc , 

+ gamma , xl ,x2,yl ,y2,zl ,z2,kl 

complex z!2,z,pl 

integer i,typ t j ,k,llag,app,nx,nz,napp,m 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine zyy calculates the interaction between y-directed c 
dielectric currents, which is Ey ol y-directed dielectric 
current 


called by: lildd 

calls: zyyapp , gqSdyy, fun3yyi, gq2ddyy, lun2yy , Iun2yy2, ^ 

ccccccccccccccccccclccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE CONSTANTS AND INITIALIZE 


c 

c 


c 


c 

c 

c 

c 


c 


typ=0 

pl=(0. 0,1.0) 
gamma=30 . 0 
zi.2-0.0 
app=l 

if ((abs(kd) .It .klx) .and. (abs(kl) .It .klz)) typ=i 
if typ=l usa general form no approximation - naad onca 
r=aqrt (kd**2+khh**2+kl**2) 
rc=sqrt (klx**2+kly**2+klz«"*2) 
m=4 

i 1 (r.gt ,(3.*rc)) m=3 
il (r.gt.(6.*rc)) m=2 
il (r .gt . (9 . *rc)) m=l 
il (klx. ge. klz) then 
napp=int (klx/klz+0 .5) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 .6) 
nx=m 

nz=m+napp 

endil 


xl=-klx/2.0 

x2=-xl 

yl=-kly/2.0 

y2=-yl 

zl=-klz/2 .0 

z2=-zl 

CALCULATE THE MUTUAL IMPEDAMCE 


if ((app.aq.l) .and. (typ.aq.O)) than 
uaa approximata interaction 

call zyyapp<kd,khh,kl ,klx ,kly ,klz ,nx ,nz ,zl2) 

else 

use general lorm 
if (typ.aq.O) than 

call gq3ddyy(khh,kl,kd,z,typ,flag,xl ,x2,yl,y2,zl,z2) 
zl2=zi2+z 

call gq2ddyy (klx ,kly ,klz .khh.kl ,kd,z ,typ,f lag.xl ,x2 ,zl ,z2) 
zl2=zl2+z 

call gq3ddyy(khh,kl,kd,z,typ,llag,xl ,x2,yl ,y2,zl,z2) 
zl2=z!2+z 

call gq2ddyy(klx,kly , klz, khh,kl,kd,z,typ, flag, yl,y2,zl,z2) 

zl2=zi2+z 
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c 


c 


c 


c 

c 

c 


c 


*lag=2 

call gq2ddyy (klx , kly ,klz , 

zl2=zl2+z 

flag=3 

call gq2ddyy ( klx , kly , klz » 

zl2=zl2+z 

flag=4 

call gq2ddyy (klx , kly ,klz t 


zl2=zl2+z 

endif 

endif 


kbh,kl,kd,z,typ,flag,xl,x2,zl,z2) 


khh,kl,kd,z,typ,flag,xl,x2,yl,y2) 


khh,kl,kd,z,typ,flag,xl,x2,zl,z2) 


zl2=zi2*gamma 

return 

end 

subroutine zyyappOcd^khb^kljklXjkly # klz,nx 9 nz 9 zl2) 
re al kd , khh , kl , klx , kly , klz , d , 1 , r , cy 
complex zl2,pl 
integer nx,nz,i,j 

calculates approximate interaction 
zl2=0 .0 
pl=(0. 0,1.0) 
do 10 i=l ,nx 
do 10 j=l ,nz 

d=kd+klx/2 . 0+ (0 .B-i) *klx/nx 
l=kl+klz/2 . 0+ ( 0 . B- j ) *klz/nz 
rsssqrt (d+*2+khh**2+l**2) 
cy=khh/ r 

zi2=zl2+(l-cy**2+pl/r+(l-pl/r)*(3*cy**2-l))*cexp(-pl*r)/r 

) continue . 

zl2=-pl*zl2*klx+klz*kly/ (nx*nz) 
return 
end 

GQ3DDTT - CALCULATES INTEGRAL IN THREE DIMENSIONS 

subroutine gq3ddyy (khh,kl ,kd,z ,typ »flag »xl , x2 ,yl »y2 , si > s2) 
real kd,khh,kl,xl ,x2,xm,xr,pl ,p2 ,ql ,q2 ,x(24) ,w(24) ,dx,dy , 

+ yl,y2,ym,yr,sl,s2,ds f sm,sr 9 rl,r2 

complex z,zl,z2,z3,z4,zB,z6 f z7 9 z8 
integer j ,i,k,typ,flag 


call gaus6(x,w) 
xm=0 .60*(xl+x2) 
xr=0.B0*(x2-xl) 
ym=0 . B0* (yl+y2) 
yr=0 .B0*(y2-yl) 
sm=0 . B0*(sl+s2) 
sr=0 . B0*(s2-sl) 
z=0 .0 

do 10 i=l »6 

ds=sr*x(i) 

rl=sm+ds 

r2=sm-ds 

do 20 j=l,6 

dy=yr*x( j ) 

pl=ym+dy 

p2=ym-dy 

do 30 k=l >6 

dx=xr*x(k) 

ql=xm+dx 

q2=xm-dx 

call fim3yyl(kd,khh,kl,rl,pl,ql,zl,typ) 
call lun3yyl (kd.khh.kl ,rl ,pl ,q2 ,z2 ,typ) 
call iim3yyl(kd,khh,kl,rl,p2,ql,z3,typ) 
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call fun3yyl(kd,khh,kl,rl ,p2,q2,z4,typ) 

call fun3yyl(kd,khh,kl,r2,pl,qi,z6,typ) 

call f \m3yy 1 ( kd , khh , kl , r 2 ,pl ,q2 ,z6 ,typ) 

call fxm3yyl(kd,khh,kl,r2 .p2,ql,z7 ,typ) 

call f un3yy 1 (kd , khh , kl , r2 ,p2 , q2 , z8 , typ) 

z=z+w(i)*w(j)*w(k)*(zl+z2+z3+z4+z5+z6+z7+z8) 

continue 

continue 

continue 

z=xr*yr*sr*z 

return 

end 

FUN3YY1 CALCULATES INTEGRAND OF THREE DIM. INTEGRAL 

subrout ine 1 un3yy 1 (kd , khh f kl , z , y , x , zz , typ) 
real kd,khh,kl,cl ,x,y ,z 
complex zz,pl 
integer typ 

CALCULATE THE RELATED PARAMETERS 

pl=(0.0,-1.0) 
zz—0 . 0 

cl=sqrt ( (kd-x)**2+(khh-y)**2+(kl-z)**2) 

CALCULATE THE INTEGRAND 


if (typ.eq.O) then 
zz=pl*cexp(pl*cl)/cl 

else 

zz=cexp(pl*cl)/2.0 

endif 

return 

end 

GQ2DDYT - CALCULATES INTEGRAL IN TWO DIMENSIONS 

aubroutine gq2ddyy(klx,kly,klz,khh,kl,kd,z,typ,flag,xl,x2,yl,y2) 
raal kd.xl ,x2 ,xin, xr.pl ,p2,qi ,q2,x(24) ,w(24) .dx.dy, 

+ yl ,y2,ym,yr ,klx # kly »klz»khh,kl 

complex z,zl,z2,z3,z4 
integer typ,j,i>*l*g 

call gaus6(x,w) 
xm=0.50*(xl+x2) 
xr=0 ,60+(x2-xl) 
ym=0 . 50*(yl+y2) 
yr=0 . SO* (y2-yl) 
z=0 .0 

do 10 i=l,6 

dy=yr*x(i) 

ql=yra+dy 

q2=ym-dy 

do 20 j=l,0 

dx=xr*x(j) 

pl=xm+dx 

p2=xm-dx 

call f un2yy (khh ,kd ,kl , typ .flag ,klx ,kly ,klz ,ql ,pl ,zl ) 
call f un2yy (khh ,kd ,kl , typ .flag ,klx ,kly ,klz ,ql ,p2 ,z2) 
call f un2yy (khh ,kd ,kl , typ .flag ,klx ,kly , klz , q2 ,pl ,z3) 
call f im2yy (khh.kd ,kl . typ .flag ,klx ,kly ,klz ,q2 ,p2 , z4) 
z=z+w(i)*w(j)*(zl+z2+z3+z4) 

20 continue 
10 continue 
z=xr*yr*z 
return 
end 
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FUH2TY CALCULATES IITEGRAHD OF DOUBLE IVTEGRALS 
subroutine fun2yy(khh,kd,kl,typ,Tlag,klx,kly .klz ,q,p,zz) 
real kd,kl,khh,klz,kly ,klz,x,y ,z,cl,c2,q,p 
complex zz,pl,zp 
integer typ,flag,i 

pl=(0. 0,1-0) 
zz=0.0 

do 10 i=-l ,1,2 

if (flag.eq.l) then 

x=kd-(i)*klx/2.0 

y=khh-p 

z=kl-q 

call fun2yy2(x,y,z ,zp) 

zz=zz+zp*x*(i) 

endif 

if (flag.eq.2) then 
x=kd-p 

y=khh- ( i ) *kly/2 . 0 
z=kl-q 

call fun2yy2(x,y,z,zp) 

zz=zz+zp*y*(i) 

endif 

if (f lag.eq.3) then 

x=kd-p 

y=khh-q 

z=kl~(i)+klz/2 .0 
call fun2yy2(x,y ,z ,zp) 
zz=zz+zp*z*(i) 
endif 

if (flag . eq.4) then 
x=kd-p 

y=khh-(i)*kly/2 .0 
z=kl-q 

call fun2yy3(x,y,z,zp) 

zz=zz+zp*y*(i) 

endif 

10 continue 
return 
end 

subroutine fun2yy2(x,y ,z,zp) 

real x,y,z,cl 

complex zp,pl 

pl=(0 .0 , 1 . 0) 

cl=sqrt(x**2+y**2+z**2) 

zp=pl*cexp(-pl*cl)/(2.0*cl) 

return 

end 

subroutine fun2yy3(x,y ,z ,zp) 
real x,y,z,cl 
complex zp,pl 
pl=(0. 0,1.0) 
cl=sqrt(x+*2+y**2+z**2) 

zp=cexp(-pl*cl)*( (1 . 0/cl**2)-(pi/ cl**3) ) 

return 

end 
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subroutine zyz(klx,kly ,klz,kd,khh,kl,zl2) 
real klx,kly ,klz ,kd,khh,r ,rc , 

+ gamma, xl ,x2 ,yl ,y2,zi ,z2,kl 

complex zl2,z,pl 

integer i, j ,k,app,nx,nz ,napp,m 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C Subroutine zyz calculates the interaction between y-directed c 
and z-directed dielectric currents, which is Ez o t 
y-directed dielectric current 


called by: fildd 


ccccccccccccccccccclccccccccccccccccccccccclcccccccccccccccccccccccc 


CALCULATE THE CONSTANTS AMD INITIALIZE 


pl=(0 .0,1 .0) 
gamma=- 30 .0 
zl2=0 .0 

approximate form is used to save time 
app=l 

r=sqrt(kd**2+khh**2+kl**2) 

rc=sqrt (klx**2+kly**2+klz**2) 

if (r.gt. (3.*rc)) m=3 
if (r.gt.(6.*rc)) m=2 
if (r.gt. (9.*rc)) m=l 
if (klx.ge.klz) than 
napp=int ( klx/klz+0 . B ) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . B) 
nx = m 

nz=m+napp 

endif 

CALCULATE THE MUTUAL IMPEDANCE 


it (app.eq.l) then 
c use approximate interaction 

call zy zapp (kd , khh , kl , klx ,kly ,klz ,nx , nz , z ) 

else 

c use general form 
xl=-klx/2 . 0 
x2— ~xl 

call gqldyz (khh.kl ,kd,z ,xl ,x2 ,klx ,kly ,klz) 
z 1 2 =z * gamma*p 1 

endif 

return 

end 

subroutine zyzapp(kd,khh,kl,klx,kly ,klz,nx,nz,zl2) 
real kd,khh,kl ,klx ,kly ,klz ,d, 1 ,r ,cy ,cz 
complex zl2,pl 
integer nx,nz,i,j 

c calculates approximate interaction 
zl2=0 .0 
pl=(0. 0,1.0) 
do 10 i=l,nx 
do 10 j=l ,nz 

d=kd+klx/2 . 0+ ( 0 . B- i ) *klx/nx 
l=kl+klz/2 . 0+ (0 . S- j ) +klz/nz 

r=sqrt (d**2+khh**2+l**2) 

cy=khh/r 

cz=kl/r 
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zl2=zl2+cy*cz*(-l+3*pl/r*(l-pl/r) )*cexp(-pi*r)/r 

zl2=zl2*klx+klz*kly/ (nx*nz) 

return 

end 

6Q1DTZ - CALCULATES IHTEGRAL IN OHE DIMENSION 

subroutine gqldyz(khh.,kl ,kd,z ,xl ,x2 >klx >kly ,klz) 
real kd,xl ,x2 ,xm,xr ,pl »p2 ,x(24) ,w(24) *dx, 

+ klx,kly ,klz ,khh,kl 

complex z,zl»z2 
integer j,i,ngaus 

ngaus=6 

call gaus6(x,w) 
xm=0 . BO* (xl+x2) 
xr=0 . BO* (x2-xl) 
z=0 . 0 

do 10 i=l f ngaus 
dx=xr*x(i) 
pl=xm+dx 
p2=xm-dx 

call funlyz(khh,kd,kl,klx,kly ,klz ,pl ,zl) 
call i unlyz ( khh , kd , kl , klx , kly ,klz ,p2,z2) 
z=z+w(i)*(zl+z2) 

10 continue 
z=xr*z 
return 
end 

c FUH1TZ CALCULATES INTEGRAND OF DIE DIM. INTEGRAL 

subroutine funlyz(khh,kd,kl,klx,kly ,klz,x ,zz) 
real kd,kl ,kbh,klx , kly ,klz ,x ,y ,z 9 xl 
complex zz,pi,zp 
integer i,j 

pl=(0. 0,1.0) 
zz=0 .0 
xl=kd-x , ^ 
do 10 i-1 ,2 
do 10 j=l,2 
y=khh-(2*i-3)*kly/2 .0 
z=kl- ( 2* j -3 ) *klz/2 . 0 
call lun2yz(xl,y ,z,zp) 
zz=zz+zp*(2*i-3)*(2* j“3) 

10 continue 
return 
end 

subroutine fun2yz(x,y ,z,zp) 
real x,y,z,cl 
complex pl,zp 

pl=(0. 0,1.0) 

cl=sqrt(x**2+y**2+z**2) 

zp=cexp(-pl*cl)/cl 

return 

end 
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subroutine zzz (klx ,kly ,klz ,kd,khh ,kl ,z!2) 
real klx,kly ,klz ,kd,khh,r ,rc , 

+ gamma, xl ,x2,yl ,y2,zl ,z2 ,kl 

complex zl2 , z ,pl 

integer i ,typ, j ,k,flag,app,nx,nz,napp,m 

s “°SSgSS£?S£S <! SS'S£fSSSS?S°?|S c iSSS|SgS||£ ,! |||S^'|^||||?SS c “| 

dielectric currents, which ie Ez of z-directed dielectric c 

current c 

called by: fildd £ 

calls: zzzapp , gq3dzz, fun3zzl, gq2ddzz, lun2zz, Iun2zz2, c 

cccccccccccccccccccfccccccccccccccccccccccccccccccccccccccccccccccc 

CALCULATE THE CONSTANTS AID IHITIALIZE 

typ=0 
pl=(0. 0,1.0) 

gamma=30 .0 
zl2=0 . 0 
app=l 

C ii ((abs(kd) .It .klx) .and. (abs(kl) .It .klz)) typ=l 
c il typ=l use general iorm no approximation - used once 
xl=-klx/2.0 

x2=-xl , 
yl=-kly/2.0 
y2=-yl 
zl=-klz/2.0 

z2=-zi .. 

r=sqrt (kd**2+khh**2+kl**2) 
rc=sqrt(klx**2+kly**2+klz**2) 

m=4 

if (r.gt . (3.*rc)) m=3 
if (r.gt . (6 . •rc)) m=2 
if (r.gt . (9.*rc)) m=l 
if (klx. ge. klz) then 

napp=int (klx/klz+0 . 5) 
nz=m 

nx=m*napp 

else 

napp=int (klz/klx+0 . B) 
nx=m 

nz=m*napp 

endif 

C CALCULATE THE MUTUAL IMPEDANCE 

C ii ((app.eq.l) .and. (typ.eq.O)) then 

c use approximate interaction 

call zzzapp(kd,khh,kl,klx ,kly ,klz,nx,nz,zi2) 

else 

c use general form 

if (typ.eq.O) then 

call gq3ddzz(khh,kl ,kd,z ,typ,flag,xl ,x2,yl,y2,zl ,z2) 
zl2=zl2+z 

call gq2ddzz(klx,kly ,klz ,khh,kl,kd,z ,typ,f lag,xi ,x2 ,yl »y2) 
zl2=zI2+z 

call gq3ddzz(khh,kl,kd,z,typ,flag,xl,x2,yl,y2,zi,z2) 
zl2=zl2+z 

flag=l ^ 

call gq2ddzz(klx,kly ,klz ,khh,kl,kd,z ,typ,f lag,yl ,y2 ,zl ,z2) 

z!2=zl2+z 
f lag=2 
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c 


c 


c 


c 


call gq2ddzz(klx,kly ,klz ,khh»kl,kd,z »typ,flag,xl ,x2 ,zl f z2) 
zl2=zl2+z 

call gq2ddzz(klx ,kly ,klz ,khh,kl ,kd ,z ,typ,f lag, xl , x2 ,yl ,y2) 
zl2=zl2+z 

call gq2ddzz(klx,kly f klz ,khh,kl,kd,z , typ »llag ,xl ,x2 ,yl >y2) 

zl2=zi2+z 

endil 

endif 


zl2=zl2*gamma 

return 

end 

subroutine zzzapp(kd,khk f Xl ,klx,kly »klz ,nx ,nz,zl2) 
real kd , khh , kl , klx , kly , klz , d , 1 ,r , cz 
complex zl2,pl 
integer nx,nz,i, j 

calculates approximate interaction 
zl2=0 .0 
pl=(0. 0,1.0) 

do 10 i=l ,nx 
do 10 j=l ,nz 

d=kd+klx/2 . 0+ ( 0 . B-i ) ♦klx/nx 
l=kl+klz/2 . 0+ ( 0 . B- j ) *klz/nz 

r=sqrt(d**2+khh**2+l**2) 

cz "l/ r 

zl2=zl2+(i-cz**2+pl/r*(l-pl/r)*(3*cz**2-l))*cexp(-pl*r)/r 

10 continue .. x 

zl2=-pl*zl2*klx*klz*kly/(nx*nz) 
return 
end 

GQ3DDZZ - CALCULATES INTEGRAL IN THREE DIMENSIONS 

subroutine gq3ddzz (khh,kl ,kd,z ,typ ,1 lag ,xl ,x2,yl f y2 , si ,s2) 
real kd,khh,kl ,xl ,x2 ,xm,xr ,pl ,p2 ,ql ,q2 ,x(24) ,w(24) ,dx ,dy , 

+ yl ,y2,ym,yr,sl,s2,ds ,sm,sr,rl,r2 

complex z,zl,z2,z3 ,z4,zB,z6 ,z7 ,z8 
integer j ,i,k,typ,f lag 

call gaus6(x,w) 
xm=0 . 60*(xl+x2) 
xr=0 . B0*(x2-xl) 
ym=0 . B0* (yl+y2) 
yr=0.B0*(y2-yl) 
sm=0 . 60*(sl+s2) 
sr=0 . 60*(s2-sl) 
z=0 . 0 

do 10 i=l ,6 

ds=sr*x(i) 

rl=sm+ds 

r2=sm-ds 

do 20 j=i ,6 

dy=yr*x( j) 

pl=ym+dy 

p2=ym-dy 

do 30 k=l ,6 

dx=xr*x(k) 

ql=xm+dx 

q2=xm-dx 

call fun3zzl(kd,khh,kl ,rl ,pl ,ql ,zl ,typ) 
call fBn3zzl(kd,khh,kl,rl,pl,q2,z2,typ) 
call fun3zzl(kd,khh,kl,rl ,p2,ql,z3,typ) 
call lun3zzl (kd ,khh,kl ,rl ,p2 ,q2 ,z4 ,typ) 
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call fun3zzl (kd,khh,kl f r2 ,pl ,ql ,zB ,typ) 
call fun3zzl (kd,khh,kl ,r2 ,pl ,q2,z6 ,typ) 
call fun3zzl (kd ,khh ,kl ,r2 ,p2 ,ql ,z7 ,typ) 
call fun3zzl(kd,khh,kl,r2,p2 ,q2,z8 »typ) 
z=z+w (i) ( j ) *w (k) * (zl+z2+z3+z4+zB+z6+z7+z8) 

continue 

continue 

continue 

z=xr*yr*sr*z 

return 

end 

FUN3ZZ1 CALCULATES INTEGRAND OF THREE DIM. INTEGRAL 

subroutine fun3zzl(kd,kbh,kl,z t y >x,zz >typ) 
real kd,khh,kl,cl,x,y,z 
complex zz,pl 
integer typ 

CALCULATE THE RELATED PARAMETERS 

pl=(0.0,-1.0) 
zzs () 0 

cl-sqrt ( (kd-x) **2+ (khh-y ) **2+ (kl-z)**2) 

CALCULATE THE IITEGRAID 


IT (typ.eq.O) than 
zz=pl*c*xp(pl*cl)/cl 

else 

zz=cexp(pl*cl)/2.0 

endif 

return 

end 

GQ2DDZZ - CALCULATES INTEGRAL IN TWO DIMENSIONS 

subrout ine gq2ddzz (klx , kly , klz , khh , kl , kd , z , typ » f lag , xl , x2 » y 1 » y 2 ) 
real kd,xl ,x2 ,xm,xr ,pl ,p2,ql ,q2,x(24) ,w(24) ,dx,dy, 

+ yl ,y2 ,ym,yr ,klx,kly ,klz,khh,kl 

complex z,zl ,z2,z3,z4 
integer typ, j,i, flag 

call gaus6(x,w) 
xm=0 ,B0+(xl+x2) 
xr=0.B0*(x2-xl) 
ym=0 . B0*(yl+y2) 
yr=0.60+(y2-yl) 
z=0.0 

do 10 i=l ,6 
dy=yr*x(i) 
ql=ym+dy 
q2=ym-dy 
do 20 j=l ,6 
dx=xr*x( j ) 
pl=xm+dx 
p2=xm-dx 

call fim2zz (khh, kd,kl, typ, flag, klx, kly ,klz ,ql,pl ,zl) 
call f un2zz (khh ,kd ,kl , typ .flag ,klx ,kly ,klz ,ql ,p2 ,z2) 
call f nn2zz (khh ,kd ,kl , typ .flag ,klx ,kly ,klz ,q2 ,pl ,z3) 
call f un2zz (khh ,kd ,kl , typ .flag ,klx ,kly ,klz ,q2 ,p2 ,z4) 
z=z+w(i)+w( j )+(zl+z2+z3+z4) 

20 continue 
10 continue 
z=xr*yr*z 
return 
end 

FUN2ZZ CALCULATES THE INTEGRAND OF DOUBLE INTEGRAL 
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subroutine fun2zz(khh,kd,kl,typ,f lag,klx,kly ,klz,q,p, 
real kd,kl,khh,klx,kly ,klz,x,y ,z ,cl ,c2,q,p 
complex zz,pl,zp 
integer typ,flag,i 

pl=(0. 0,1.0) 
zz=0.0 

do 10 i=-l ,1 ,2 

if (flag.eq. 1) then 

x=kd-(i)*klx/2.0 

y=khh-p 

z=kl-q 

call fun2zz2(x,y,z,zp) 

zz=zz+zp*x*(i) 

endif 

if (flag.eq. 2) then 
x=kd-p 

y=khh- ( i ) +kly /2 . 0 
z=kl-q 

call fun2zz2(x,y,z,zp) 
zz=zz+zp*y * ( i ) 
endif 

if (flag.eq. 3) then 

x=kd-p 

y=khh-q 

z=kl- (i) *klz/2 . 0 
call fun2zz2(x,y ,z,zp) 
zz=zz+zp*z*(i) 
endif 

if (flag.eq. 4) then 

x=kd-p 

y=khh-q 

z=kl-(i)*klz/2.0 
call fun2zz3(x,y,z,zp) 
zz=zz+zp*z*(i) 
endif 

continue 

return 

end 

subroutine fun2zz2(x,y ,z ,zp) 

real x,y,z,ci 

complex zp,pl 

pl=(0. 0,1.0) 

cl=sqrt(x**2+y**2+z**2) 

zp=pl*cexp(-pl*cl)/(2.0*cl) 

return 

end 

subroutine fun2zz3(x,y ,z,zp) 

real x,y,z,cl 

complex zp,pl 

pl=(0. 0,1.0) 

cl=sqrt (x**2+y**2+z**2) 

zp=cexp(-pl*cl)*( (1 .0/cl**2)-(pl/cl**3)) 

return 

end 


subroutine symxx(j ,i , jt , jh, jw, jl,it t ih,iw,il,nl,nw,nh, 

+ js , is, ok, mult) 

real nrult 

lnt«g«r j ,i, jt, jh, jw, jl,it,ih,iw,il,ok,ml ,n2, js,is 

r 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 
c 
c 
c 
c 
c 
c 


Subroutine symxx investigates symmetry for zxx 
If there is even symmetry, ok=l , mult=l 
If there is odd symmetry, ok=l , mult=-l 

called by: zxx 


c 
c 
c 
c 
c 
c 

w calls : none c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

ml=nl*nw 
m2=ml+nh 
mult=l . 0 

if ( (jh.eq.ih) .and. (jh.eq.O)) then 
if (jw.eq.O) then 
if (j.gt.l) then 
if (il.ge.jl) then 

is=i-l 

ok=l 

else 

js=j-(jl-il) 

is=i+( jl-il) 

ok=l 

endif 

endif 

else 

if (iw.gt.O) then 

js=j-nl 

is=i-nl 

ok=l 

else 

if (jl.gt.l) then 

if (il.gt.jl) then 

j»=j-i 

is=i-l 

ok=l 

endif 

endif 

endif 

endif 

else 

if ((jh.eq.ih) .and. (jh.gt.O)) then 

js= j-ml 

is=i-ml 

ok=l 

else 


((jh.ne.ih) .and. (jh.lt .ih)) then 
(jh.eq.O) then 
(j.gt.l) then 
(il.ge.jl) then 


if 
if 
if 
if 

js=j-l 
is=i-l 
ok=l 

else 

js=j-( jl-il) 

is=i+(jl-il) 

ok=l 

endif 

endif 

else 

is=x-ml 

ok=l 
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c 


endif 

else 

endif 

endif 

endif 

return 

end 
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c 
c 
c 
c 
c 

c ca. 
cccccc 
c 


subroutine symxy(j .i.jt.jh. Jw, jl,it,ih,iw,il,nl,nw,nh, 

+ js ,ia , ok, mult) 

integer j 3 !jt,jh.jw.jl.it.ih,iw.il.<*,-l.« 2 .jw.i« 

hawspB 

II there is even symmetry, ok*l» muxt-i c 

II there ie odd symmetry, ok*l, mult=-x c 

c 

called by: zxy c 

SJi8ic?g?Scccccccccccccccccccccccccccccccccccccccccccccccccccc? 

ml=nl*nv 

if*?( jh.eq.ih) .and. (jh.eq.O) ) then 
if (jw.eq.O) then 
if (j.gt.l) then 
if (il.ge.jl) then 

j>*j-l 

is=i-l 
ok=l 

;l=j-(ji-ii) 

is=i+( jl-il) 
nnilt=-l . 0 
ok=l 
endif 
endif 

else v % 

if (iw.gt.O) then 
js=j-nl 
is=i-nl 
ok=l 

else v , 

if (jl.gt.l) then 
if (il.ge.jl) then 

is=i-l 
ok=l 

;i?;-(ji-ii) 
is=i+( jl-il) 
nmlt--l . 0 
endif 
endif 
endif 
endif 

if S ((jh.eq.ili) .and. (jh.gt .0)) then 
js=j-mi 
ie-i-ml 
ok=l 

if ( (jh.ne .ih) .and. (jh.lt .ih) ) than 

if (jh.eq.O) then 
if (j.gt.l) then 
if (il.ge.jl) then 

is=i~l 
ok=l 

else 

ja-J-(Jl-il) 

is=i+( jl"il) 

rault=-1.0 
ok=l 
endif 
endif 
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else 



-ml 

-ml 


ok=l 

endif 

if*((jh.n«.ih) .and. (jh.gt.ih)) 

js=j-(jh-ih)*ml 

ia=i+(jh-ih)*ml 


nmlt=-l 

ok=l 

endif 

endif 

endif 

endif 

return 

end 


0 


then 
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subroutine symxz( j »i> jt , jh, jw, jl,it ,ih,iw,il,nl,nw,nh> 

+ js ,is , ok, mult) 

integer js ,is , j ,i, jt , jh, jw, jl, it ,ih,iw,il,ok,ml ,m2 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine symxz investigates symmetry for zxz c 

If there is even symmetry, ok=i, mult=l c 

If there is odd symmetry, ok=l, mult=-l c 

called by: zxz ® 

ccccccJcc^cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

ok=0 

ml=nl*nw 
m2=ml*nh 

if ((jh.eq.ih) .and. (jh.eq.O)) then 
if (jw.eq.O) then 
if (j.gt.l) then 
if (il.ge.jl) then 
j.=j-i 

ie=i-l 
ok=l 

else 

js=j-(jl-il) 
is=i+( jl-il) 
mult=-l .0 
ok=l 
endif 
endif 
else 

if (iw.gt.O) then 
js=j-nl 
is=i-nl 
ok=l 

else 

if (jl.gt.l) then 
if (il.gt.jl) then 
js=j-l 
i«=i-l 
ok=l 
else 

js=j-(jl-il) 
is=i+( jl-il) 
rault=-l .0 
ok-1 
endif 
endif 
endif 
endif 
else 

if ((jh.eq.ih) .and. (jh.gt .0)) then 
js^j-ml 
is=i-ml 
ok=l 

else 

if ((jh.ne.ih) .and. (jh.lt. ih)) then 
if (jh.eq.O) then 
if (j.gt.l) then 
if (il.ge.jl) then 

is=i-i 
ok=l 

else 

js=j-(jl-il) 
i«=i+(jl-il) 
mult=-l . 0 
ok=l 
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radii 

endii 

else 

ok=l 

radii 

•lS6 

if ((jh.ne.ih) .and. (jh.gt.ih)) then 

j«=j-(jh-ih)*mi 

is=i+( jh-ih) *ml 

ok=l 

radii 

radii 

endii 

endii 

return 

end 
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subroutine eymyy( j >i > jt » jk, jw, jl»it > ih,iw > il,nl,nw,nh, 

+ js, is, ok, mult) 

integer j^i, jt , jh, jw, jl,it ,ih,iw,il,ok,ml,m2, js ,ia 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine symyy investigates symmetry lor zyy c 

c If there is even symmetry, ok=l, mult=l c 

If there is odd symmetry, ok=l , mult=-l c 

called by: zyy £ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


ml=nl*nw 
m2=ml*nh 
mult-1 . 0 

if ((jh.eq.ih) .and. (jh.eq.O)) then 
if (jw.eq.O) then 
if (j .gt . (m2+l)) then 
if (il.ge.jl) then 

is=i-l 

ok=l 

else 

js=j-(jl-il) 

is=i+( jl-il) 

ok-1 

endif 

endif 

else 

if (iw.gt.O) then 

js=j-nl 

is=i-nl 

ok=l 

else 

if (jl.gt.i) then 

if (il.gt.jl) then 

j«=j-l 

is=i-l 

ok=l 

endif 

endif 

endif 

endif 

else 

if ((jh.eq.ih) .and. (jh.gt .0)) then 

js=j~ml 

is=i-ml 

ok=l 

else 

if ((jh.ne.ih) .and. (jh.lt .ih)) then 
if (jh.eq.O) then 
if (j .gt. (m2+l)) then 
if (il.ge.jl) then 

is=i-l 

ok=l 

else 

js=j-(jl-il) 

is=i+( jl-il) 

ok=l 

endif 

endif 

else 

fits 

ok=l 

endif 

else 
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endif 

endif 

endif 


return 

end 
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subroutine symyz(j ,i, jt,jh, jw.jl.it, ih, iw.il ,nl,nw,nh, 

+ js, is, ok, mult) 

integer j£is, j ,i,jt,jh, jw.jl.it, ih, iw.il, ok, ml, m2 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Subroutine symyz investigates symmetry for zyz 
If there is even symmetry, ok=i, mult=l 

If there is odd symmetry, ok=l, mult=-l c 

called by: zyz 


cccccc^cicccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


then 


ml=nl*nw 
m2*ml*nh 

if ( ( jh.eq.ih) .and. ( jh.eq.O) ) 
if ( jw.eq.O) then 
if (j.gt.(m2+l)) then 
if (il.ge.jl) then 

is=i-l 

ok=l 

else 

j.=j-(jl-il) 

is*i+( jl-il) 

ok=l 

endif 

endif 

else 

if (iw.gt.O) then 

js=j-nl 

is=i-nl 

ok=l 

else 

if (jl.gt.l) then 
if (il.gt.jl) then 

is=i-l 

ok=l 

else y 

js=j-(jl-il) 

is=i+( jl-il) 

ok=l 

endif 

endif 

endif 

endif 

if *(( jh.eq.ih) .and. ( jh.gt .0) ) then 

js=j-ml 

is=l-ml 

ok=l 

if ((jh.ne.ih). and. (jh.lt. ih)) then 
if (jh.eq.O) then 
if (j.gt.(m2+i)) then 
if (il.ge.jl) then 

jw=j-l 

is=i-l 
ok=l 
else , 

j*=j“(jl"il) 

is=i+(jl-il) 

ok=l 

endif 

endif 

else 

js=j-ml 
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is=i-ml 

ok=l 

endif 

if"((jh.ne.ih) .and. (jh.gt .ih)) then 

jB=j-(jh-ih)*ml 

is=i+( jh-ih) *ml 

rault=-l . 0 

ok=l 

endif 

endif 

endif 

endif 

return 

end 
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then 


subroutine symzz(j t i , jt , jh, jw , jl,it ,ih,iw r il»nl,nw,nh, 

+ js, is, ok, mult) 

ftSger T$!jt.jh,j.,jl.it.lk.i*.il,ok.«l,«2.j..i. 

gccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c CCC |ubroutin« symzz investigates symmetry for zzz * 

c If there is even symmetry, ok=l, c 

If there is odd symmetry , ok-1 , mult- c 

c 

called by: zzz c 

ccccctiJcfeccSccecceccccccecccccecccccccccccccccccccccccccccccccccccc 

c 

ml=nl*nw 
m2=ml*nh 

if^(( jh.eq.ih) .and. (jh.eq.O)) 
if (je.eq.O) then 
if (j .gt.(2*m2+l)) then 
if (il.ge.jl) then 

is=i-l 
ok=l 

else 

js=j-(jl-il) 
is=i+( jl-il) 
ok=l 
endif 
endif 

else v . 

if (iw.gt .0) then 

js=j-nl 
is=i-nl 
ok=l 

else x , 

if (jl.gt.i) then 

if (il.gt.jl) then 

is=i-l 
ok=l 
endif 
endif 
endif 
endif 

il*((jh.eq.ih) .and. (jh.gt .0)) then 
js=j-ml 
is=i-ml 
ok=l 

if*((jh.ne.ih) .and. (jh.lt.ih)) then 
if (jh.eq.O) then 
if (j .gt.(2*m2+l)) then 
if (il.ge.jl) then 

is=i-i 
ok=i 

else 

js=j-(jl-il) 
is=i+( jl-il) 
ok=l 
endif 
endif 
else 
i 8=1 -ml 
is=i-ml 
ok=l 
endif 
else 
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end 
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subroutine gaus2(z,y) 

S '“isissss^rssf£^ 0 ^ c f:ss c ss~sfi c ssssr““ cc “ c,!c '“| 

Legendre polynomial c 

called by: various integration routines prefixed gq £ 

r. CCCCC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


z(l) =.3399810436848660 
z(2) =.8611363116940630 

y (1) =.6621461648626460 
y(2) =.3478648461374640 


raturn 

end 
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subroutine gaus4(z,w) 
real z(24),w(24) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine |aus4 contains the roots ol 8th order c 

Legendre polynomial c 


called, by: various integration routines prefixed gq 


z ( 1 ) = . 1834346424966600 
z(2) =.6266324099163290 
z(3) =.7966664774136270 
z(4) =.9602898664976360 

w(l) =.3626837833783620 
h(2) =.3137066468778870 
h( 3) =.2223810344633740 
a(4) =.1012286362903760 

return 

end 
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subroutine gaus6(z ,w) 
real z(24),w(24) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

<■ Subroutine gaus6 contains the roots of 12th order c 

Legendre polynomial ® 

called by: various integration routines prefixed gq c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

z(l) =.126233408611489 
z(2) =.387831498998180 
z(3) =.687317964288817 
z(4) =.769902674194306 
z(6) =.904117266370476 
z(6) =.981660634246719 

w(l) =.249147046813403 
u(2) =.233492636638366 
w(3) =.203167426723066 
w(4) =.160078328643346 
w(6) =.106939326996318 
w(8) =.047176336386612 

return 

end 
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subroutine gaus24(z,a) 
real z(24),a(24) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Subroutine gaus24 contains the roots of 48th order c 

Legendre polynomial £ 


called by: various integration routines prefixed gq 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI 



z(l) =.032380170962889362033 
z ( 2 ) = . 097004899209462698930 
z(3) =.161222366068891718066 
z(4) =.224763790394689061226 
z(6) =.287362487366466676736 
z(6) =.348766886292160738160 
z(7) =.408686481990716729916 
z(8) =.466902904760968404646 
z(9) =.623160974722233033678 
z ( 10) = . 677224726083972703818 
z ( 1 1 ) = . 628687396776613623996 
z( 12)= .677872379632663906212 
z(13)=. 724034130923814664674 
z (14) = . 767169032616740339264 
z ( 16 ) = . 807066204029442627 083 
z(16)= .843688261624393630711 
z ( 17 ) = . 876672020274247886906 
z ( 18 )=. 906879136716669672822 
z(19)= .931386690706664333114 
z(20)= . 962987703160430860723 
z (21) = . 970691692646247260461 
z (22) = . 984124683722826867746 
z(23)= . 993630172266360767648 
z(24)=. 998771007262426118601 

s(l) =.064737696812683922603 
s(2) =.064466164436960082207 
v(3) =.063924238684648186624 
w(4) =.063114192286264026667 
s(6) =.062039423169892663904 
s(6) =.060704439166893880063 
a(7) =.069114839698396636746 
w(8) =.067277292100403216706 
n(9) =.066199603699984162868 
a ( 10 ) = . 062890189486193667096 
s(ll)= . 060369036663864474968 
a ( 12 ) = . 047616668492490474826 
w(13)= .044674660866694280419 
a ( 14) = . 041646082943464749214 
a(16) = .038241361066830706317 
a ( 16 ) = . 034777222664770438893 
a(17)=. 031167227832798088902 
a ( 18 ) = . 027426609708366948200 
a( 19) = . 023670760839324379141 
a(20)= .019616160467366627814 
a(21)=. 016679316722943848728 
a (22) = . 011477234679234639490 
a(23)=. 007327663901276262102 
a ( 24) = . 003163346062306838633 

return 

end 
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program org main 

real* 8 Ingth, wdth, wf ,wq,hf , 

+ xsO,wsc,lsc,t ,er , 

+ lx , ly ,lz ,f req,xd0 , flans 

integer elnumc ,ncl ,ncw ,ml ,flgair ,f lgdip ,flgms , 
+ nf ,mi,elnumd,mdl,md2,nld,nhd,nwd 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Program org organizes the output data for further analysis c 

c The Current vector is written to the file ’cur* , other data c 

c necessary for the analysis is written to the file ’dat’ c 

c c 

c calls : orgsub ® 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

read(B,*) 
read(B,*) 
read(6 ,*) 

read (6,*) f lgair,f lgdip, f lgms 
r ead( B , * ) ncl , new , Ingth , wdth , wf ,ml , elnumc 
read(B,*) xsO,wsc,lsc,xdO,mi,flang 
read(B,*) elnumd,mdl ,md2 ,nld,nhd,nwd,t 
read(B,*) lx,ly ,lz ,freq,er 
read(B,*) wq,hf,nf 


nn=elnumc+elnumd , _ , 

call orgsub (ncl ,ncw , Ingth , wdth , wf , ml , elnumc , xsO f lsc , 

+ wsc,xdO,elnumd,flgair,f lgdip, f lgms ,f lang, 

+ mdl,md 2 ,nld,nhd,nwd,t,lx,ly,lz,freq,er,nn, 

+ wq,hf ,nf ,mi) 


c 


c 


c 


17B 

176 


end 

subroutine orgsub(ncl ,ncw , Ingth, wdth, wf ,ml , elnumc ,xsO , lsc , 
+ wsc,xdO,elnumd,flgair,f lgdip, f lgms ,flang, 

+ mdl ,md 2 ,nld,nhd,nwd,t ,lx,ly,lz,freq,er ,nn, 

+ wq,hf,nf,mi) 

real* 8 Ingth, wdth, h, w, wf ,pi,teta, phi, eabs (200) , max, wq, 

+ hu(2000) ,wu(2000) ,xs0 ,wsc ,lsc ,tetdum,tc,t ,er ,hf , 

+ lx , ly ,lz ,klx ,kly ,klz ,kwf ,f req,xd0 ,kt ,kxs0 ,f lang 

complex* 16 r(nn) ,eteta,pl ,zs 

integer i, j , cut , no , elnumc ,dum2( 2000) , ncl, new, ml ,dum(2000) , 
+ mi ,elnumd,mdl ,md2,nld,nhd,nwd,nn,flgair ,f lgdip, 

+ f lgms ,nf 

read(6,*) dum2 ,dum, wu,hu 

read(6,*) r 

open (unit=9 ,f ile= *dat 9 ) 
open (unit=2 ,f ile= ’cur * ) 

write(9 ,*) f lgair ,f lgdip, f lgms 

writ e ( 9 , * ) ncl , new , Ingth , wdth , wf , ml , elnumc 

write (9,*) xs0,wsc,lsc,xd0,mi,flang 

write (9 , *) elnumd,mdl ,md2 ,nld,nhd,nwd,t 

write (9,*) lx,ly ,lz,freq,er 

write(9,*) wq,hf,nf 

do 17B i=l ,4*ml+nf 

if (i.le.ml) then 

write(9 ,*) dum2(i) ,dum(i) ,wu(i) ,hu(i) 

else , % 

write(9,*) dum2(i) 

endif 

continue 

do 176 i=l,nn 

write(2,*) r(i) 

continue 

close(unit=9) 
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close(unit=2) 

return 

end 
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program pattern main 

real* 8 lngth,wdth,h,w,wf ,pi ,tata,phi ,max,wq,hf ,z0, 

+ hu(2000) ,wu(2000) ,xsO,wac ,l»c f tatdnm,tc,t,ar, 

+ lx , ly , lz ,klx ,kly ,klz ,kwf ,iraq,xdO ,kt ,kxaO ,ilang , 

+ aabata(901) ,eab»pa(901) ,aab«th(901) ,aab»ph(901) 

complex* 16 r(5000) ,eteta,pl ,zatata,zsphi,aphi 
integer i, j ,cnt,no,elniimc,dii]n2(2000) ,ncl,ncw,iiil,dum(2000) , 

+ mi , e lnumd , mdl , md2 ,nld,hhd,nwd,flgair ,f lgdip, 

+ flgme ,ni ,flgrp 

character cur*16 ,dat*16 ,hacp*lB , eacp*16 ,haxp*lB ,eaxp*lB 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Program pattern computes the fax-fields of the antenna c 

c in the E and H planes of the antenna only 

c calls: f source, farfld, ediel, calcc, dipfld 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

write (6,*) ’enter current and data file name’ 

read(B,+) cur,dat 

write (6,*) ’enter ecp,hcp,exp,hxp* 

read(B,*) eacp,hacp,eaxp,haxp 

flgx=0 

write(6,*) ’enter 1 if x-pol is required’ 

write(6 ,*) ’note: for air LTSA x-pol shouldn’t be requested’ 

write(6,*) ’since it is zero, underflow may result !’ 

open (unit=2,file=cur) 

open (unit=9,f ile=dat) 

open (unit=3,file=hacp) 

open (unit =7 ,f ile=eacp) 

if (flgx.eq.l) then 

open (unit=33 ,f ile=haxp) 

open (unit =77 ,f ile=eaxp) 

endif 

pi=datan(l .d0)*4.d0 
pl=(0.d0,l.d0) 

read(9 ,+) f lgair,f lgdip, flgms 

read ( 9 , * ) ncl ,ncw , Ingth , wdth , wf , ml , elnumc 

read(9,*) xsO,wsc ,lsc,xdO,mi ,flang 

read(9,*) e lnumd, mdl ,md2 ,nld,nhd,nwd,t 

read(9 ,*) lx,ly ,lz,freq,er 

read(9 ,*) wq,hf,nf 

klx=2.d0*pi*lx 

kly=2.d0*pi*ly 

klz=2 . dO*pi*lz 

kt=2 .d0*pi*t 

kwf=2.d0*pi+wf 

kxs0=2.d0*pi*xs0 

z0=wdth+2 . d0*pi+kwf /2 . dO 

do 7 j=l,4*ml+nf 

if ( j .le .ml) then 

read(9,*) dum2( j ) ,dum( j ) ,wu( j) ,hu( j) 

else 

read(9 ,*) dum2(j) 
endif 

7 continue 

w=lngth/dble (ncl) 

h= wdth/dble (new ) 
c 

do 10 i=l , elnumc+elnumd 
read(2,*) r(i) 

10 continue 
max=0 .dO 
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do 83B cut=0,l 
i f (cut.eq.l) then 
teta=90 .dO 
t eta=teta*pi/180 . dO 
phi=0 . dO 
else 

phi=0 . dO 

phi=phi*pi/180 . dO 
teta=0 .dO 
endif 

no=number of data points 
no=360 , , v 

tc=2.d0+pi/dble(no) 

do 20 j=0,no 
if (cut.eq.l) then 
phi=tc*dble(j) 
tetdum=teta 

else 

teta=tc*dble(j) 
if (teta.gt.pi) then 
tetdum=2 . dO*pi-teta 
phi=pi 

else 

tetdum=teta 
phi=0.d0 
endif 
endif 

call the far-field calculating routine 

call farfld(ncl,dum2 ,wdth,r ,h f w,tetduiii,phi,eteta y ml ,pi ,wf » 

+ wUjhu.xsO.wsc^lsCjtjerjinijepthijXdO, 

+ mdl,md 2 ,nld,klx,kly,klz,elnnmc,eljiumd > wq,M,nf) 

if (f lgdip.eq. 1) goto 892 

add the far-field of the source 

call f source (pi ,pi ,tetdum,phi ,kwf ,kxs0 ,kt ,zsteta ,zsphi , 

+ f Ignis, zO) 

eteta=eteta-zsteta 
ephi = ephi - z sphi 
892 continue 

c find the max of the field and organize 
c 

if (cut.eq.l) then 

eabsth( j+l)=cdabs(eteta) 

if (eabsth( j+1) .gt .max) max=eabsth( j+1) 

if (flgx.eq.l) then 

eabsph ( j + 1 ) =cdabs ( ephi ) 

if (eabsph(j+l) .gt .max) max=eabsph( j+1) 

endif 

else 

eabste( j+l)=cdabs(eteta) 
if (eabste(j+l) .gt .max) max=eabste( j+1) 
if (flgx.eq.l) then 
eab spe ( j + 1 ) =cdabs ( ephi ) 
if (eabspe(j+l) .gt .max) max=eabspe( j+1) 

endif 

endif 

20 continue 
836 continue 

£ 

c calculate dB values and write to output files 


c 

c 

c 


c 

c 

c 


do 836 cut =0,1 
do 30 j=0,no 


206 



oo o 


c 


if (cut.eq.l) then 

eabsth( j+l)= 20 .d 0 *dlog(eabsth( j+l)/max)/dlog(10.d0) 

if (flgx.eq.l) then 

eabsphT j +1 ) =20 . d0*dlog ( eabsph( j +1 ) /max) /dlog ( 10 . dO) 
endif 

eabste( j+l)= 20 .d0*dlog(eabste( j+l)/max)/dlog(10.d0) 

if (flgx.eq.l) then 

eabspe ( j + 1 ) =20 . d0*dlog ( eabspe ( j + 1 ) /max ) /dlog ( 10 . dO) 


endif 

endif 

if (cut.ne.l) then 
phi =tc*dble ( j )* 180 . dO/pi 


else , v 

phi=tc*dble ( j ) * 180 . dO/pi 


endif 

if ( cut . eq . 1 ) then 
write (3,*) phi ,eabsth( j+1) 
if (flgx.eq.l) then 
write(33,*) phi ,eabsph( j+1) 


endif 

else 

write(7,*) phi ,eabste( j+1) 
if (flgx.eq.l) then 
write(77,*) phi, eabspe (j+1) 


endif 

endif 

30 continue 
836 continue 


end 


subroutine f source (pi ,pi,teta,phi,kwf 9 kxs0,kt , 

+ zsteta,zsphi, flgms ,z0) 

real* 8 pi ,teta,phi ,kwf ,kxs0 ,kt ,z0 
complex* 16 zs ,pl ,zsteta,zsphi 
integer flgms 

subroutine fsource calculates the far-fields of the source 


if (flgms. eq.0) then 
zs=kwf*dsin(teta) 

zs=zs*cdexp(pl*kxs0*dsin(teta) *dcos (phi) ) 
zsteta=zs*cdexp(pl*kt*dsin(teta) *dsin(phi) ) 
zsphi=0 .dO 

else 

zs=kt*cdexp(pl*kxsO*dsin(teta)*dcos(phi)) 
zs=zs*cdexp(pl*kt /2 . dO*dsin( teta) *dsin(phi) ) 
zs=zs*cdexp(-pl*z0*dcos(teta) ) 
zsteta=-Z8*dcos(teta)*dsin(phi) 
zsphi=-zs*dcos(phi) 

endif 

return 

end 

subroutine f arf ld(ncl ,dum2 ,wdth,r ,h,w ,teta,phi ,eteta ,ml ,pi , 
+ wf ,wu,hu,xs0,wsc,lsc,t,er,mi,ephi,xd0, 

+ mdl , md2 , nld , klx , kly , klz , elnumc , elnumd , wq ,hf , nf ) 

real* 8 hi ,wl , h,w, teta, phi, gam, alp, yi ,xl ,wdth,pi ,d,hh,wf , 

+ il,i2,wu(2000) ,hu(2000) ,xs0,wsc ,lsc ,t ,er,l,xd0 , 

+ hfi,hll,h21,wq,hf , 

+ klx, kly, klz 

complex* 16 r(5000) ,eteta,ephi ,zl2 ,rl ,r2,r3 ,a,b 
integer i,j ,ml ,ip ,ii , j j ,dum2(2000) ,ncl,mi, 

+ mdl ,md2, nld, elnumc, elnumd, a j ,it ,ih,iw,il ,nf 
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c 


c 


c 


c 


subroutine farfld calculates the far-fields of the antenna 


eteta=0 .dO 
ephi=0.d0 


do 10 i=l,4*ml+nf+md2 
if (i.le. (4*mi+nf )) then 
if (dum2(i) .eq.O) goto B61 


zl2=0.d0 

do 23 j =1 , 2 

if (j.eq.l) then 

il=0.d0 

i2=l.d0 

else 

il=l.d0 

i2=0.d0 


if ( (i .ge .0) .and. (i .le.ml)) then 

gam=pi/2.d0 

alp=l .Bd0*pi 

ii=int( (i-l)/ncl)+l 

j j=i-(ii-l)*ncl 

if (j.eq.l) then 

wl=hu(i+l)/2.d0 

hl=wu(i) 

yl=dble( j j-l)+w 

xl=wdth-dble(ii-i)*h-hu(i+l)/2 .d0+wf/2 .dO 


wl=hu(i+l)/2.d0 
hl=wu(i+l) 
yl=dble( j j)*w 

xl=wdth-dble ( ii-1 ) *h-hu( i+1 ) /2 


endif 
1=0. dO 
endif 


.dO+wf /2.d0 


if ((i.gt.ml) .and. (i.le. (2*ml))) then 

gam=pi/2.d0 

alp=l .BdO*pi 

ii=int((i-ml-l)/ncl)+l 

j j=i-ml- (ii-1 ) *ncl 

ip=i- (2*ii-l ) *ncl 

if (j.eq.l) then 

wl=hu(ip+l)/2 .dO 

hl=wu(ip) 

yl=dble( j j-l)*w 

xl=-dble ( ii ) +h+hu( ip+1 ) /2 . dO-wf /2 . dO 
else 

wl=hu( ip+1 ) /2 . dO 
hl=wu(ip+l) 
yl=dble(j j)+w 

xl=— dble ( ii) *h+hu ( ip+1 ) /2 . dO-wf /2 . dO 

endif 
1=0. dO 
endif 

if ( (i .gt . (2*ml)) .and. (i.le . (3*ml) )) then 
gam=0 .dO 
alp=0 . dO 

ii=int ( (i-2*ml-l)/ncl)+l 

j j=i-2*ml-(ii-l)*ncl 

ip=i-2*ml 

if (j.eq.l) then 

wl=wu(ip)/2.d0 

hl=hu(ip) 
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non 


xl=dble ( j j -1 ) *w+tra( ip) /2 . dO 

yl=dble(ii-l)*h-wdth-wf/2.d0 

else v , 

wl=wu(ip+ncl)/2 .dO 
hl=hu(ip+ncl) 

xi=dble ( j j -1 ) *w+wu( ip+ncl) /2 . dO 

yl=dble ( ii ) *h-wdth-wf /2 . dO 

endif 

1=0. dO 

endif 

if (i.eq. (4*ml+i)) then 

gam=0.d0 

alp=0.d0 

wl=vsc 

hl=lsc 

if (j.eq.l) then 

xl=wl 

yl=-hl 

else 

xl=wl 

yl=0.d0 

endif 

1=0. dO 

endif 

if ( (i .rt . (3*ml)) .and. (i.le, (4*ml) )) then 
gam=0 .dO 
alp=0 . dO 

ii=int((i-3*ml-l)/ncl)+l 
j j=i-3*ml-(ii-l)*ncl 
ip=i-(2*ii-l)*ncl-2*ral 
if (j.eq.l) then 
wl=wu(ip)/2.d0 
hl=hu(ip) 

xl=dble( ( j j-l))*w+wu(ip)/2.d0 
yl=dble ( ii ) *h-hu( ip ) + wf /2 . dO 

else 

wl=wu( ip-ncl ) /2 . dO 
hl=hu(ip-ncl) 

xl=dble((j j-i))*w+*u(ip-ncl)/2.d0 

y 1 =dble ( ii ) *h+wf /2 . dO 

endif 

1=0. dO 

endif 

if ((i.gt . (4*ml+l)) .and. (i.le. (4*ml+nf ))) then 

gam=0 . dO 

alp=0 . dO 

ii=i-4*ml-l 

wl=wq/2.d0 

hl=hf 

if (j.eq.l) then 
xl=xs0 

yl=dble ( ii-1 ) *hf -wdth-wf /2 . dO 

else 

xl=xs0 

yl=dble(ii)*hf-wdth-wf/2 .dO 

endif 

l=t 

endif 

calculate the distance of the monopole from the origin 

d=dcos(alp)*xl-dsin(alp)*yl 
hh=dsin(alp) +xl+dcos (alp) *yl 

call dipt ld(r(dum2(i)) ,hl ,wl ,d,hh,l,teta,phi t gam,alp, 
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+ pi ,a,b ,il ,i2) 

eteta=eteta+a 
ephi=ephi+b 
23 continue 

else 

c calculate the distance of dielectric current from the origin 

C aj=i-4+ml-nf 

it=int((aj-l)/md2) 

ih=int((aj-it*md2-l)/mdl) 

iw= int ( ( a j -it+md2-ih*mdl - i ) /nld) 
il=a j -it *md2-ih*mdl-iw+nld 
r l=r( elnumc+a j) 
r2=r ( elnumc+a j +md2 ) 
r3=r ( elnumc+a j +2+md2 ) 
d=xdO+dble(il) +klx-klx/2 . dO 
hh=dble ( ih) *kly+kly/2 . dO 

l=dble ( is) +klz+klz/2 .dO- (wdth+wf /2 . dO) *2 .dO*pi 

call ediel(teta,phi,d,hh,l,rl ,r2,r3,klx,kly,klz,a,b) 

eteta=eteta+a 

ephi=ephi+b 

endif 

651 continue 
10 continue 
return 
end 

subroutine ediel(teta,phi,d,hh,l,rl,r2,r3,klx,kly,klz,a,b) 

real* 8 teta, phi, d ,hh,l ,klx ,kly ,klz 
complex* 16 r ,a,c,b,rl ,r2 ,r3 

c subroutine ediel calculates far-fields of dielectric part 
c calls: calcc for the calculation of a common term 

C call calcc (teta , phi ,klx,kly,klz,d,hh,l,c) 

a=c* (dcos (teta) *dcos (phi) +rl +klx+dcos ( teta) *dsin(phi ) *r2*kly- 
+ dsin(teta)+r3*klz) 
b=c+ (-dsin(phi) +rl*klx+dcos (phi) *r2+kly) 
return 
end 

subroutine calcc (teta, phi, klx,kly ,klz,d,hh,l,c) 
real* 8 teta,phi,klx,kly,klz,d,hh,l,cl,c2,c3,c4,c6 
complex* 16 c,pl 

c subroutine calcc calculates the common term in dielectric 
c far-field calculations 

pl=(0.d0,l.d0) , , 

cl=d*ds in( teta) *dcos (phi) +hh*dsin(teta)*dsin(phi)+l*dcos (teta) 

c2=klx*dsin( tet a) *dcos (phi) /2 . dO 
c3=l .dO 

if (c2.ne. (O.dO)) c3=dsin(c2)/c2 
c2=kly*dsin(teta) *dsin(phi) /2 .dO 
c4=l . dO 

if (c2 .ne . (0 .dO) ) c4=dsin(c2)/c2 
c2=klz*dcos(teta)/2 .dO 
c6=l.d0 

if (c2.ne. (O.dO)) c5=dsin(c2)/c2 
c=cdexp(pl*cl) *c3*c4*c6 
return 
end 

C subroutine dipf ld(r ,hl ,wl ,d,hh,l, teta, phi, gam, alp, 

+ pi ,ete ,eph,il ,i2) 

real* 8 hi ,wl ,d,hh,teta,phi,gam,alp,pi,c,b,a,il ,i2,a2,khl ,1 
complex* 16 ete,aa,pl,r ,c2,ql ,q2,eph 
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c subroutine dipfld calculates the far-fields of the monopole 
c currants for the conducting parts of the antenna using a 
closed form formula obtained from the vector potential 
formulation 

khl=2.d0*pi*hl 

c= (d+dsin( teta) ♦dcos (phi ) +hh^dcos (teta) + 

+ l*dsin(teta)*dsin(phi))+2.d0*pi 
b= (dcos (alp) ♦dsin(teta) ♦dcos (phi) +dsin(alp)*dcos (teta) )*2 .dO^pi 

a=dcos(alp)*dcos(teta)-dsin(alp)*dsin(teta)*dcos(phi) 
pl=(0.d0,l.d0) 
a2=2 .dO*pi*a 

ql=il*(dcos(a 2 *hl)-dcos(khl)+pl+dsin(a 2 *hl)-pl*a*dsin(khl)) 
q2=cdeip (pi*a2*hi ) * (pi *a*dsin(khl ) -dcos (khl ) ) 
if ( (a.ne . (-1 .dO) ) .and. (a.ne . (1 .dO)) ) then 
ql=ql/( (1 .d0-a**2)«fdsin(khl) ) 
q2=i2*(q2+l.d0)/((l .d0-a*^2)*dsin(khl)) 

ql=-khl *dsin( a*khl ) +pl ♦khl*dcos (a*khl ) -pl*dsin(khl) 
ql=il«ql/(-2.d0*a*dsin(khl)) 

q2=-khl*a^dsin(khl)-pl^khl*dcos(khl)+pl*dsin(khl) 
q2=i2*q2*cdexp(pl*a*khl)/(-2 .dO*a*dsin(khl) ) 
endif 

aa=cdexp(pl+c) 
c2=l.d0 

if ((b*wi) .ne. (O.dO)) then 
c2=c2*dsin(wl*b)/(wl+b) 
endif 

aa=aa*c2*(ql+q2)*r 

ete=aa+(-dcos (teta) ♦dcos (phi )^dsin(alp) -dcos (alp) ♦dsin(teta) ) 

69 continue x , 

eph=aa*(dsin(phi)^dsin(alp) ) 
return 
end 
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program patdd main 

real* 8 lngth, sdth, h, w,wf, pi, teta, phi, max, wq,h±, 

+ hu(2000) ,wu(2000) ,xsO ,wsc ,lsc ,tc,t ,ar, 

+ lx , ly , lz , klx ,kly , klr , kaf , f raq , xdO , kt ,kxaO ,f lang , 

+ dcpabs(901) , dxpaba (901 ) ,phim, beta, gam, zO 

complex* 16 r(B000) , eteta.pl, zsteta,z«phi,ephi,edcp,edxp 
integer i,j ,cut ,no,alnumc,dum2(2000) , ncl, new, ml ,dma(2000) , 

+ mi ,alnumd,mdl ,md2 ,nld ,nhd , nwd , i lgair ,f lgdip , 

+ f lgma ,nl 

character cnr*16 ,dat*16 ,dcp*16 ,dxp*16 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c Program patdd computes the far-fields of the ant anna c 

in a plana spacifiad with the angles bat a and gamma 

bata: offset angle of TSA from the rotation axis 
gamma: offset angle of standard gain antenna from rot. axis 


c 


calls: f source , farfld, ediel, calcc, dipfld 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


write(6,*) ’enter current and data file name 9 

read(5 ,*) cur.dat 

write(6,*) 9 enter dcp f dxp 9 

read(B,+) dcp,dxp 

open (unit =2 ,f ile=cur) 

open (unit=9,f ile*dat) 

open (unit=3 ,f ile=dcp) 

open (unit=7 ,f ile=dxp) 

pi=datan(l .dO)*4.dO 

pl=(0 .dO ,1 .dO) 

read(9 ,*) f lgair ,f lgdip ,flgms 

read ( 9 , * ) ncl ,ncw , lngth , wdth , wf , ml , elnumc 

read(9 ,*) xsO ,wsc ,l*c>3cd0 ,mi t f lang 

read(9 ,*) elnumd,mdl ,md2 ,nld,nhd,nwd,t 

read(9 , *) lx,ly ,lz >^req t er 

read(9,*) wq,hf,nf 

klx=2.d0*pi+lx 

kly=2.d0*pi*ly 

klz=2 . d0*pi*lz 

kt=2.d0*pi*t 

kwf=2.d0*pi*wf 

kxsO=2.dO*pi*xsO 

z0=wdth+2.d0*pi+kwf/2.d0 

do 7 j=l,4*ml+nf 

if (j.le.ml) then 

read(9 ,♦) dum2( j) ,dum( j) ,wu( j) ,hu( j) 
else , v 

read(9,*) dum2(j) 
endif 

7 continue 

w= lngth/ dble (ncl) 
h=wdth/dble (new ) 


do 10 i=l ,elnumc+elnumd 
read(2 ,*) r(i) 


10 continue 
max=0 . dO 

write (6,*) 9 Enter beta-offset angle of TSA 9 


read(B,*) beta 

write(6,*) 9 Enter gamma-offset angle of measurement ant. 
read(B ,*) gam 
beta=beta*pi/180 . dO 


ccc 
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gam=gam*pi/180 . dO 
no=360 

t c=2 . dO*pi/dble (no ) 
c 

do 20 j=0,no 
phim=tc*dble(j) 

c calculate the pattern angles as seen by LTS1 
c 

call calc(pi,phim, beta, teta, phi) 


c 

c call tha far-fiald calculating routine 

c 

call 1 arf Id (ncl , dum2 , wdth ,r ,h , b , tata ,phi , at at a ,ml ,pi , wf , 

+ wu,hu,XBO,wac,lac,t,ar,mi,aphi,xdO, 

+ mdl ,md2 ,nld,klx,kly ,klz,alnumc ,elnumd,wq,hf ,nf 

861 continue 

if (flgdip.aq.l) goto 892 
c 

c add the far-field o f the source 

call f source(pl ,pi , teta, phi ,kwf ,kxs0 ,kt ,zsteta,zsphi , 

+ f lgms ,z0) 

eteta=eteta-zsteta 
ephi=ephi-zsphi 
892 continue 

c calculate the measured quantity in terms of theta and phi 
c components of the electric field intensity of LTSA 
c x 

call meas (pi ,phim ,beta , gam , tet a ,phi , eteta , ephi , edcp , edxp) 
c 

c find the max of the field and organize 
c 

dcpabs ( j + 1 ) “cdabs (edcp ) 

dxpabs ( j + 1 ) ~ cdabs ( edxp ) 

if (dcpabs (j+1) .gt. max) max=dcpabs(j+l) 

if (dxpabs(j+l) .gt .max) max=dxpabs(j+l) 

20 continue 
c 

c calculate dB values and write to output files 
c 

do 30 j=0,no 

dcpabs ( j +1)=20 ,dO*dlog (dcpabs ( j+l)/max)/dlog(10 .dO) 

dxpabs ( j+1) =20 ,d0*dlog (dxpabs (j+1) /max) /dlog(10 ,d0) 

phi=tc*dble( j) *180 . dO/pi 

if (phi.gt . (180. dO)) phi=phi-360 .dO 

write(3 ,*) phi,dcpabs( j+1) 

write (7 , *) phi , dxpabs (j+1) 

30 continue 
end 
c 

subroutine meas (pi ,phim,beta,gam,teta,phi , 

+ eteta, ephi , edcp , edxp ) 

real* 8 pi ,phim,beta,gam,teta,phi ,a,b,c ,d,gam2 
complex* 16 eteta, ephi, edcp, edxp 


c 

c subroutine meas „ , „ _ ^ . . . 

c calculates the measured quantity in terms of theta and phi 

c components of the electric field intensity of LTSA 

c 

gam2=gara+pi/2 .dO 

a=-dsin(phim) *dcos (teta) *dcos (phi ) 

a=a+dcos (phim) *dcos (beta) *dcos (teta) *dsin(phi) 

a=a-dcos(phim)*dsin(beta)*dsin(teta) 

b=dsin(phim)*dsin(phi)+dcos (phim)*dcos (beta)*dcos (phi) 
c=dsin(beta) *dcos ( teta) *dsin(phi ) +dcos (beta) *dsin(teta) 
d=dsin(beta) *dcos (phi) 


) 
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c 


c 

c 

c 


c 


c 


c 

c 

c 


c 


edcp- (a*dsin(gam)-c*dcos (gam) ) *eteta 
•dcp=adcp+ (b*dsin(gam) -d*dcos (gam) ) *ephi 
edxp-(a*dsin(gam2)-c*dcos (gam2))*eteta 

edxp=edxp+(b*dsin(gam2)-d*dcos(gam2))*ephi 

return 

end 

subroutine calc (pi ,phira ,beta,teta ,phi) 
real* 8 phim f beta,teta,phi , x,y f z ,pl 

subroutine calc calculates the pattern angles as seen by LTSA 


x-dcos(phim) 
ysdsin(phim) *dcos (beta) 
z=dsin(phim) *dsin(beta) 


if ((beta. eq. (pi/2. dO)). and. (y. It. (l.d-T))) then 
if (x.ge. (O.dO)) phi=0.d0 
if (x. It. (O.dO)) phi=180.d0 


if (x.eq. (O.dO)) then 

if (y.gt. (O.dO)) phi=pi/2.d0 

if (y. It. (O.dO)) phi=3.dO*pi/2.dO 

else 

if ((y/x) .It. (O.dO)) then 

if (y. It. (O.dO)) phi=datan(y/x)+pi*2.d0 

if (x. It. (O.dO)) phi*datan(y/x)+pi 


if ((y/x) .ge. (O.dO)) then 

if (y. It. (O.dO)) phi=datan(y/x)+pi 

if (y.gt. (O.dO)) phi=datan(y/ x) 


endif 

endif 

endif 

endif 

teta=dacos( 


z) 


return 

end 


subroutine f source (pi ,pi,teta,phi,kwf »kxsO ,kt , 

+ zsteta,zsphi,f lgms ,z0) 

real* 8 pi ,teta,phi,kwf ,kxsO,kt f z0 
complex* 16 zb ,pl ,zsteta,zsphi 
integer flgms 

subroutine f source calculates the far-fields of the source 


if (f Igms . eq. 0) then 

zs=kwf *dsin(teta) _ 

zs=zs*cdexp(pl*kxsO*dsin(teta)*dcos(phi)) 
zsteta=zs*cdexp(pl*kt*dsin(teta) *dsin(phi)) 

zsphi=0 . dO 

zs*kt*cdexp(pl*kxsO*dsin(teta)*dcos(phi)) 
zs=zs*cdexp(pl*kt/2.d0*dsin(teta)*dsin(phi) ) 

zs=zs*cdexp(-pl*zO*dcos (teta) ) 

zsteta=-zs*dcos(teta)*dsin(phi) 

zsphi=-zs*dcos(phi) 

endif 

return 

end 

subrout in e f arf ld(ncl ,dum2,wdth,r *h,w ,t eta, phi , eteta,inl f pi t 
+ wt,Tu,hu f XBO,mBc,lsc 9 t f *T 9 mi,*phi,xdO, 

+ mdl , md2 ,nld ,klx ,kly ,klz ,elnumc ,elmiMd,wq,hf ,nf ) 

real* 8 hi ,wl ,h,w , teta, phi.gam, alp, yl ,xl,wdth,pi,d,hh,wf , 
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c 


c 


c 


c 


+ il ,i2,wu(2000) ,hu(2000) ,x80 t wsc,lsc ,t ,er ,l,xdO t 

+ hli,hll v h21»klz ,kly .klz.wq.hl 

complex* 16 r(5000) ,eteta,ephi >z!2,rl ,r2,r3,a,b 
integer i , j , ml , ip , ii , j j , dum2 ( 2000 ) ,ncl , mi ,111 , 

+ mdl ,md2 ,nld, elnnmc ,elntnnd,aj f it t ih,iw,il 

subroutine larlld calculates the lar-lields o 1 the antenna 


eteta=0.d0 

ephi=0.d0 


do 10 i=l ,4+ml+nl+md2 
il (i.le.(4+ml+nl)) then 
il (dum2(i) .eq.O) goto 561 


zl2=0.d0 

do 23 j=l ,2 

il (j.eq.l) then 

il=0.d0 

i2=l.d0 

else 

il=l.d0 

i2=0.d0 

endil 


il ((i.ge.O) .and. (i.le.ml)) then 

gam=pi/2.d0 

alp=l . 6d0*pi 

ii=int((i-l)/ncl)+l 

j j=i-(ii-l)*ncl 

11 (j.eq.l) then 

wl=hu(i+l)/2.d0 

hl=wu(i) 

yl=dble( j j~l)+w 

xl=wdth-dble ( ii-1 ) *h-hu( i+1) /2 .dO+al /2 . dO 


else 

wl=hu(i+l)/2 .dO 
hl=wu(i+l) 
yl=dble( j j )+w 

xl=wdth-dble ( ii-1 ) +h-hu( i+1 ) /2 


endil 
1=0. dO 
endil 


.d0+ffl/2.d0 


il ( (i.gt .ml) .and. (i .le . (2*ml) )) then 

gam=pi/2 .dO 

alp=l .Bd0*pi 

ii=int((i-ml-l)/ncl)+l 

j j=i-ml-(ii-l)+ncl 

ip=i- (2+ii-l ) +ncl 

11 (j.eq.l) then 

wl=hu(ip+l)/2 .dO 

hl=wu(ip) 

yl=dble( j j-l)*w 

xl=-dble (11) *h+hu( ip+1 ) /2 .dO-wl /2 . dO 


wl=hu(ip+l)/2.d0 
hl=wu(ip+l) 
yl=dble(j j)*w 

xl=-dble(ii)+h+hu(ip+l)/2.d0-wl/2.d0 


endil 
1=0. dO 
endil 


il ((i.gt. (2+ml)) .and. (i.le. (3*ml))) then 
gam=0 . dO 
alp=0 .dO 
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ii=int( (i-2+ml-l)/ncl)+l 

j j =i-2*ml- ( ii-1 ) *ncl 

ip=i-2*ml 

if (j.eq.l) then 

wi=wu(ip)/2.d0 

hl=hu(ip) 

xl=dble( j j-l)*w+mi(ip)/2.d0 

yi=dble(ii-l ) +h-wdth-ffl/2 .dO 

else 

wl =wu( ip+ncl ) /2 . dO 
hl=hu(ip+ncl) 

xl=dble ( j j -1 ) *w+wu ( ip+ncl) /2 . dO 
yl=dble(ii)*h-wdth-wf/2 .dO 
endl 1 
1=0. dO 
endif 

if (i.eq. (4*ml+l)) then 

gam=0.d0 

alp=0 . dO 

wl=wsc 

hl=lsc 

if (j.eq.l) then 

xl=wl 

yl=-hl 

else 

xl=wl 

yl=0.d0 

endif 
1=0. dO 
endif 

if ( (i .gt . (3*ml)) .and. (i .1« . (4*ml) )) th«n 
gam=0 .dO 
alp=0 .dO 

ii=int ( (i-3+ml-l) /ncl) +1 
j j=i-3*ml-(ii-l)+ncl 
ip=i-(2*ii-l)+ncl-2*ml 
if (j.eq.l) then 
wl=wu(ip)/2.dO 
hl=hu(ip) 

xl=dble( ( j j-1) )*w+wu(ip)/2.d0 

yl=dble ( ii ) +h-hu( ip ) +wf /2 . dO 

else 

wl=wu(ip-ncl) /2 .dO 
hl=hu(ip-ncl) 

xl=dble((jj-l))*w+wu(ip-ncl)/2.d0 

yl=dble ( ii ) +h+wf /2 . dO 

endif 
1=0. dO 
endif 

if ((i.gt . (4+ml+l)) .and. (i.le. (4*ml+nf ))) then 

gam=0 .do 

alp=0 . dO 

ii=i-4*ml-l 

wl=wq/2.d0 

hl=hf 

if (j.eq.l) then 

xl=xsO v . 

y 1 =dble ( ii-1 ) *hf -wdth-wf /2 . dO 

else 

xl=xsO 

y 1 =dble ( ii ) *hf - wdth- wf /2 . dO 

endif 

l=t 


216 


c 
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endi 1 

calculate the distance o 1 the monopole from the origin 

d=dcos(alp)*xl-dsin(alp)*yl 
hh=dsin(alp)*xl+dcos(alp)*yl 

call diplld(r(dum2(i)) f hl ,wl , d, hh, 1, teta, phi »gam, alp, 

+ pi ,a,b ,il ,i2) 

eteta=eteta+a 
ephi=ephi+b 
23 continue 
else 

c calculate the distance ol dielectric current from the origin 

aj=i-4*ml-nl 
it =int ( ( a j -1 ) /md2 ) 
ih=int ( ( a j -it *rad2 - 1 ) /mdl ) 
iw=int ( (aj -it*md2-ih*mdl-l) /nld) 
il=a j - i t *md2- ih*mdl - iw*nld 
rl=r (elnumc+aj ) 
r2=r(elnumc+aj +md2) 
r3=r (elnumc+aj +2*md2 ) 
d“xdO+dble(il) *klx-klx/2 . dO 
hh-dble ( ih) *kly+kly/2 . dO 

l=dble ( iw) *klz+klz/2 . dO- ( wdth+wl/2 . dO ) *2 . dO*pi 

call ediel(teta,phi,d,hh,l,rl,r2,r3,klx,kly,klz,a,b) 

eteta=eteta+a 

ephi=ephi+b 

endil 

5S1 continue 
10 continue 
return 
end 

Q 

subroutine ediel(teta ,phi ,d,hh,l, rl ,r2 ,r3 ,klx,kly ,klz ,a,b) 
real* 8 t eta, phi ,d,hh,l,klx,kly,klz 
complex* 16 r ,a,c ,b,rl ,r2,r3 

c subroutine ediel calculates lar-fields o 1 dielectric part 
c calls: calcc for the calculation oi a common term 
c 

call calcc (teta, phi ,klx,kly ,klz,d,hh,l,c) 

a=c*(dcos (teta) *dcos (phi) *rl*klx+dcos( teta) *ds in(phi)*r2*kly- 
+ dsin(teta)*r3*klz) 
b=c*(-dsin(phi)*rl*klx+dcos(phi)*r2*kly) 
return 
end 

subrout ine calcc (teta ,phi ,klx ,kly , klz , d ,hh , 1 , c ) 
real* 8 teta, phi, klx, kly, klz ,d,hh,l,cl ,c2 ,c3 ,c4 ,cB 
complex* 16 c,pl 

c subroutine calcc calculates the common term in dielectric 
c lar-lield calculations 

pl=(0.d0,l.d0) 

cl=d*dsin(teta)*dcos (phi) +hh*dsin(teta)*dsin(phi)+l*dcos (teta) 

c2=klx*dsin(teta) *dcos (phi)/2 . dO 

c3=l.d0 , 

il (c2.ne. (O.dO)) c3=dsin(c2)/c2 

c2=kly*dsin(teta)*dsin(phi)/2.d0 

c4=l.d0 

il (c2.ne. (O.dO)) c4=dsin(c2)/c2 
c2=klz*dcos(teta)/2 .dO 
cB=l.dO 

il (c2 .ne . (O.dO)) cB=dsin(c2)/c2 

c=cdexp(pl*cl)*c3*c4*cB 

return 
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end 

subroutine dip! ld(r ,hl ,sl ,d,hh,l ,t eta, phi f g«n,*lp» 

+ pi, ete, eph.il, 12) 

real* 8 hi ,wl ,d,hh,teta,phi .gam, alp, pi ,c,b,a,il ,i2,a2,xni ,i 
complex* 16 ete,aa,pl,r,c2,ql,q2,eph 

subroutine dipfld calculates the far-fields of the monopole 
currents for the conducting parts o f the antenna using a 
closed form formula obtained from the vector potential 
formulation 


c 


khl =2 . dO*pi*hl 

c=(d*dsin(teta)*dcos(phi)+hh*dcos(teta)+ 

+ l*dsin(teta)*dsin(phi))*2.d0*pi , 

b= (dcos (alp) *dsin(teta) *dcos (phi) +dsin(alp) *dcos (teta) ) *2 . dO pi 
a=dcos(alp)*dcos(teta) -dsin(alp)*dsin(teta)*dcos(phi) 
pl=(0.d0,l.d0) 

ql=±l2 Ticls ( a2*hl ) -dcos (khl ) +pl*dsin( a2*hl ) -pl*a*dsin(khl ) ) 

q2=cdexp (pl*a2*hl ) * (pl*a*dsin(khl ) -dcos (khl ) ) 

if ( (a.ne . (-1 .dO) ) . and* (a.ne . (1 .dO)) ) than 

qlrql/ ( ( 1 . d0-a**2 ) *dsin(khl ) ) 

q2=i2* (q2+l . dO) /( ( 1 * d0-a**2) *dsin(khl ) ) 

ql * -khl *ds in( a*khl ) +pl *khl*dco s ( a*khl ) -pl*dsin(khl ) 

ql=il+ql/(-2.d0*a*dsin(khl)) 

q 2 =-khl«a«dsin(khl)-pl*khl*dcoa(khl)+pl*dsin(khl) 

q 2 =i 2 *q 2 *cdexp(pl*a*khl)/ (-2 .dO*a*dsin(khl) ) 
andif 

aa=cdexp(pl*c) 


if ((b*wl) .na.(O.dO)) than 
c 2 =c 2 *dsin(sl*b)/(sl*b) 


andif 

ete=aa* (-dcos (teta) *dcos (phi) * da in (alp) -dcos (alp) *dsin(teta) ) 


60 continue # u 

eph=aa*(dsin(phi)*dsin(alp) ) 


return 

and 
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